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SECTION 1 


INTRODUCTION 

Two-station diel dissolved oxygen (D.O.) measurements obtained in 
the summers of 1976 and 1977 in the experimental streams of the Monticello 
Ecological Research Station (MERS) are analyzed by a graphical/analytical 
method described by Mattke and Stefan (1980) to obtain total daily rates 
of community respiration and rates of photosynthesis. Several of the 
rates are compared to those obtained by a numerical dissolved oxygen 
routing procedure (DORM) for stream productivity described by Gulliver, 
Mattke, and Stefan (1980) . 

The data were made available by Dr. Hokanson and the MERS staff. 


PREFACE 


This volume presents the description and program documentation of 
the three-dimensional, free-surface mathematical model for thermal pollu- 
tion analysis and prediction for shallow water bodies, for example, lakes 
and coastal waters. The program was developed by the Thermal Pollution 
Group at the University of Miami, and was successfully verified through 
application to several sites. This success was made possible by funding 
and technical assistance provided by the National Aeronautics and Space 
Administration (NASA) and the Environmental Protection Agency (EPA). 

The model is time dependent, and the leap-frog and DuFort-Frankel 
schemes are adopted for solving the predictive equations based on the 
conservation principles of mass, momentum and energy. The model has 
been developed with minimal physical and site restrictive assumptions, and 
its algorithm has sufficient generality to allow for different boundary con- 
ditions specified at open boundaries. The program shows both the tem- 
poral and spatial variations of the surface water height, it computes 
three-dimensional velocity and temperature fields. The model can serve 
as an effective means for hydrothermal analysis and prediction. Plotting 
programs employed for representing the numerous results are also in- 
cluded. 

The volume is intended as a user's manual and, as such, presents 
specific instructions regarding data preparation for program execution. 

To illustrate further, an example case is included here with its input 
data, hard copy printout and plots. The complete listing of the program 
and its accessories is also included. 
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ABSTRACT 


A mathematical model that can be used for the analysis of thermal 
discharge from power plants into tidal estuaries and coastal waters is 
described. This transient, free-surface, three-dimensional model can 
be applied to predict the water temperature as a function of time and 
position in a specified region. 

In situations of practical relevance, the specified coastal or off- 
shore region will be a water body of irregular bottom topography with 
possible islands or keys. The user specified the boundary and boundary 
conditions, as well as the water depth distribution. Semi-diurnal tide is 
considered in the model. Hourly weather data is needed for wind stress 
calculation and heat exchange between water and the atmosphere. The 
ambient temperature is assumed of a sinusoidal form of 24-hour period. 
The ambient turbulence is included by an eddy viscosity and diffusivity 
formulation. The appropriate values are to be calibrated against mea- 
sured currents. 
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SYMBOLS 





Vertical_^ddy viscosity, 
an 2 sec 

Horizontal eddy diffusivity, 
cm 2 sec 

Verticaleddy diffusivity, 
cm 2 sec" _ 1 

Coriolis factor, sec 
Relative humidity in fraction 
of unit 

Acceleration of gravity, 
cm sec 

Local water depth with re- 
spect to mean sea level, cm 
Total water depth, cm 
Cross solar radiation, 

BTU ft " 2 day " 1 

Node index in the direction 

of the x-axis 

Node index in the direction 
of the y-axis 

Node index in the direction 
of the z-axis 

Surface heat exchange co- 
efficient, BTU ft L day 
deg F~ ' 

Reference length, cm. 
Pressure, dynes cm" 

Time, sec 






a 

Water temperature, deg C 
Air temperature, deg F 
Average of air and dewpoint 
temperatures, deg F 
Dewpoint temperature, deg F 
Equilibrium temperature, 
deg F 

Ambient surface tempera- 
ture, deg F 

Component of water velocity 
along x-axis, cm sec 
Wind speed, mph 
Component of water velocity 
along the y-axis, cm sec 
Component of water velocity 
along the z-axis, cm sec 
Displacement of the free 
surface with respect to the 
mean water level, cm. 

Water density, gm cm 
Nondimensiona! vertical 
fluid velocity 
Nondimensional vertical 
coordinate 
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SECTION 1 
INTRODUCTION 


The analysis of thermal discharges is important in order to minimize 
the environmental impact and to manage efficiently and safely the waste 
heat problems. The study of technological solutions to the problems of 
heated water disposal involves complicated relationships, such bs the 
location, geometry and types of the discharge outlet, the flow condition 
and temperature of the receiving water body, the meteorological conditions 
of the site, the waste heat output of the power plant, etc. A thorough 
understanding of the thermal effects and physical processes of heated 
water dispersion to the environment is an essential part of serving the 
rapidly growing demand for electrical energy, while reducing the possible 
impact on the receiving ecosystem. 

The thermal effluent from a power plant will have variable conse- 
quences on the aquatic life of a receiving water body and the adjacent 
environment depending on the temperature rise. Therefore, the prime 
objective of the heated water discharge system is to bring the discharged 
water into thermal equilibrium with the surrounding water by bringing 
thermal outfall to the mainstream of the water body, whereby the mixing 
and convective processes will increase the surface heat transfer to the 
atmosphere. Thus, the temperature rise within the tolerance of natural 
environmental conditions is very important on the disposal system de- 
sign and the standards for regulating thermal effluent. 

Under limited circumstances, in-situ measurements can serve for 
diagnostic and monitoring purposes for meeting the need of analyzing 
thermal impact on receiving water body. However, to provide a priori 
information about the nature and extent of thermal impact for site selec- 
tion and discharge system design, numerical modeling for simulating hy- 
drothermal behavior of ; the water body is imperative. 

During the past years, many numerical models have been developed 
for hydrothermal studies. Dunn et al. (1975) gave a presentation of 
different models developed up to then. They applied those models to 
the Point Beach Nuclear Power Plant and compared the performance of 
various models in predicting a standard data base. A general conclusion 
that can be made from their analysis is that though some models may 
perform well under certain conditions, a generalized model which accounts 
for wind, current, tide, bottom topography and diverse meteorological 
conditions is yet to be developed. 


Si mSkSSSBS^7 
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Since 1974 the Thermal Pollution Croup at the University of Miami 
has endeavored to develop a mathematical package for hydrothermal studies 
The primary motivation behind the effort was to develop a series of models 
which make minimal site restrictive assumptions enabling application to 
diverse basin and discharge configurations. Two separate formulations 
were made, one with the rigid-lid approximation and the other with the 
free-surface included. The details of the package and formulation are 
presented in a number of reports by Lee et al. (1978). 

The present report concerns the UM's free-surface model and its 
application to the Anclote Anchorage in Florida for waste heat discharge 
from a power plant. The features of the model are: a) three-dimensional, 

b) nonlinear, c) time-dependant, d) irregular topography, e) driving 
forces including wind, tide, heat and mass flux, f) graphical represen- 
tation of results of velocity and temperature fields, g) prediction of 
temporal and spatial variation of water surface. 

The descriptions of the main program and its subroutines, main 
algorithm and flow chart, program symbols, input data and logic para- 
meters, as well as the description of associated plotting programs, are 
contained herein for the ready access of the computer program package 
to the user. A preliminary review on existing three-dimensional free- 
surface models, basic concepts of the present model, assumptions, ap- 
proximations, governing equations, initial and boundary conditions, 
finite difference implementation and numerical solution methods is pre- 
sented in Lee et al. (1979) and Carter (1977). 

The report also contains a plotting program which is used to analyze 
the results of the main calculation. A subroutine to compare the calcu- 
lated temperature field with that obtained by IR scanning is presented in 
the program. Note that the IR temperature is interpreted by hand from 
the mosaic film and then read in for isotherm plotting and comparison. 

The model has been tested for its adaptability. That is, the model 
allows for program modifications so that different initial and boundary 
conditions could be considered. The main program has several flag 
statements which make different usage of same program possible. Any 
program modification for the purpose of model transition should be made 
with care, and the new program should be validated by sample runs to 
assure that the effect of the modification is as desired. The same is 
also applicable to the plotting program. 

The program therefore contains two parts. Part 1 is primary and 
performs calculations; Part 2 is secondary and is for analyzing and plot- 
ting the results of Part 1. ANCMN is the driving program of Part 1. 

The input contains parameters, geometrical and initial data, or tape which 
stores intermediate results; output contains printout of results at preset 
time intervals, in both hard copy and tape form. The hard copy printout 
provides the base for analysis, upon which decisions and choice of the 
plots needed for further analysis and detailed comparison with measured 
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results can be made. PLOTMN is the driving program of Part 2. The 
tape output from Part 1 is the main input. In addition, control cards 
assigning choice of plot, plot size, simulation hour and measured result 
for comparison are also required. Output is in printout and plot tape. 
The latter is used for plotting by CALCOMP plotter. 


SECTION 2 


RECOMMENDATIONS 


The model can be enlarged to handle any passive constituent, dis- 
solved or suspended, possessing arbitrary decay characteristics. The 
formulation of the constituent transport is based on the convection- 
diffusion equation, which is analogous to the thermal transport equation 
in the present model. The enlarged model would then be an ideal tool 
to study the ecological response of aquatic biota to the thermal effluents 
of the power plant. 

The model can be modified to include bouyancy effects caused by 
fresh water /salt water sensing by including a salinity-dispersion equa- 
tion. This equation will be of similar form to the energy equation. 

The code is written for a constant grid size. Modifications can be 
made to incorporate a coarse grid for the complete field in comparison 
with a fine grid near the discharge location. This will allow a more 
accurate prediction of plume behavior in the near field. A penalty in 
computational cost will be incurred. 
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SECTION 3 


PROGRAM DESCRIPTION AND FLOW CHART FOR MAIN PROGRAM (ANCMN) 


DESCRIPTION OF PROGRAM ALGORITHM 


The governing partial differential equations are given in Table 1; 
the symbols and definitions are referenced in Nomenclature. The problem 
is set up as an initial-boundary value problem, so values of dependent 
variables are assumed known initialiy and prescribed on boundaries. 
Values at successive time steps are obtained by using a true explicit 
scheme. The leap-frog finite difference format is used to calculate sur- 
face elevation n and two horizontal velocity components, u and v, at 
time n+1, where n is the present time step. The variables at times n-1 
and n are all known. The sequence in which calculations are performed 
is as follows: 


1. Integrate the surface elevation equation using central-time central- 
space (CTCS) differencing. That is, n° , ri n and u n , v n and h. n 
Note that h is independent of time while the present water depth H n 
= h+n is needed in this calculation. In the subroutine BETA, not 
only n n but also (i, j, k), the modified vertical velocity in 

transform (a) plane, is accomplished immediately after the ti compu- 
tation . 


2. The next task in the sequence is to calculate the nonlinear inertia 
terms that appear in the horizontal momentum equations. Here, two 
subroutines are involved: BNRTIA is 

TABLE 1. Governing Equations 


Continuity Equation*: 

8 Hu 3 Hv + u JLQ + 2 3 n _ 

3 x ’ 3 y 3 a 3 1 


u Momentum Equation: 


3 Hu . 3 Huu . 3 Hvu . ,, 3«u . , 3u 3n 

rr + nr* + — + H — + (1 + n-sT ' fvH 


H 3 p 

"p 3x 




3 ru , Av 3 2 u 
n* + JTT?- 


v Momentum Equation: 


|Hv + |Huv + |Hvy + H |av + , , „ o) £ ! t fuH 

at a x ay aa aa at 

■ ' p 15 gH (o w 9 y’ it Ttr 


Energy Equation: 

3HT 


, 3 HuT , 3 HvT . u 3Qv . ,, , 3T 3n 

rr + rr + — ~ ( ’ st n 


= 5T0 +B h ^Tx fx" + f”y "f^"^ 


* This equation is vertically integrated to yield a) prognostic equation 
for y, and b) synoptic equation for B; they are 

3n _ ro / 3 Hu 3Hv, . 

at - -\ ! ( T 5 r + 7 T J do 


o=2 iLn 4. 2 r° ( 
“ H at H a J 1 


3 Hu , a Hv ^ . . 

rr + Ty - d0 - 


The latter, upon transformation, yields the actual vertical velocity 


« ■ nH + + u !£ + v w + u !£ + V W 


for interior points, while ABNR3 is for open boundary points. Note, 
for the Anclote Anchorage sample problem, the open boundaries are 
at j = 1 and j = 14, and the imposing tides are applied at points 
immediately outside these open boundaries. Therefore, program 
modification is needed if different open boundary conditions are 
employed. 

3. Following the inertia terms computations, which may be skipped if 
the Rossby Number is very close to zero, new values of u and v 
at n+1 are computed for all points in the grid. Again, the leap- 
frog and central-space scheme is used, but D u Fort- Fra nkel differ- 
encing is applied to the vertical momentum diffusion terms. Two 
subroutines are called here, BVEL for interior points and ASAF3 
for open boundary points. Since velocity at all points is calculated 
without distinction, a subroutine GIVENU is needed to specify the 
given discharge or flowrate at particular points, that is, to replace 
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calculated velocities at those points with known values. 

Steps 1, 2 and 3 are calculations for surface elevation, modified 
vertical velocity and horizontal velocity components; they constitute the 
V-calculation. Whether the V-calculation is to be carried out or not 
depends on flagged statement KVEL = 1 or 0. The next group of calcu- 
lations is for thermal transport, or T-calcuiation, and it involves the 
energy equation only. Similarly, this group is to be flagged by state- 
ment whether KTEMP is unity or zero. 

4. The convective term in the energy equation is calculated next, using 
either a given velocity field, in the case of KVEL = 0, or the pre- 
sently known velocity field at n+1, in the case of KVEL = 1. The 
subroutine for this purpose is CONV. 

5. The energy equation itself is then integrated over time to obtain T 
at n+1. The forward-time, central-space (FTCS) and Du Fort- Fran kel 
differencing for the vertical diffusion term are used in the calcula- 
tion. The subroutine involved is TCOMPT. Since temperatures at 
all points are computed without distinction as to whether the points 
are with given temperatures or not, subroutine GIVENT is needed to 
respecify the temperature at the given points. 

Clearly, Steps 4 and 5 make up the T-calculation. In either of V- 
or T-calculations, vertical velocity wjs involved. Instead of w, the 
r?te of change of surface elevation, , is used for convection in ver- 
tical. 1 di rection . d 1 

6. The actual vertical velocity, w, is computed when it is .needed for 
printout. The subroutine is WCAL, and instead of u n 1 and v n 
which are defined at half J and half I respectively, the interpreted 
velocities at center of grid cell are used in this calculation. Since 

a space-staggered scheme is used, the water level and vertical velo- 
city are described at the center of grid cell, while the horizontal 
velocities are described at the edges of cells. 

/ \\ : 

/ 7. jThe real time (or simulation time) is checked and Steps 1 through 6 

are repeated; that is, the above procedure is repeated for n+2 using 
values at n+1 and n. 

Reference to the flow chart presented in Figure 1 will clarify the 
description of program algorithm. 

FLOW CHART 

Figure 1 shows the main flow chart of the three-dimensional, free- 
surface program applied to the Anclote Anchorage. In the flow chart, 
the subroutines and their functions are described briefly. Table 2 lists 
the subroutines called in the main-program, ANCMN. 
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TPRLOK 

STORET 


Prints Out Hourly Results 
Store Results & Data in Tape 


Time Up? 

(End of NCY ?) 


f Yes 

Put Another EOF on Tape 


Stop 



Figure 1* Flow chart for calculating program ANCMN and its subroutines 
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TABLE 2. Subroutines Required in Main Calculating Program ANCMN 


No. 

Name 

Description 

Remark 

1 

BAYBOT 

Reads in bay bottom sounding 
CH) and various grid book- 
keeping matrices, calculates 
depth matrices accordingly. 

Skip if LN=1, depends 
on problem and grid 
work, data file AMATN 
preferred. 

2 

BAYINI 

Initializes the dependent 
variables such as U, V, W, T, 
ETA, RX, RY also set 1<T to 
values outside the calculation 
region. 

Also depends on probelm 
and run conditions. RX 
RY are inertia terms. 

3 

READT 

Reads in stored data from 
tape for continuing run. 

Skip if LN=1. 

4 

IRREAD 

; 

If required, it reads in IR 
data as initial temperature; 
thus it replaces T input 
from READT. 

No need if T-calculation 
began with ambient 
temperature. 

,5 

EQTEMP 

Calculates the equilibrium 
temperature over that hour. 

Number of hour is NCY. 

6 

BETA 

Calculates surface elevation 
ETA and vertical velocity 
OM (fl). 

Mandatory in 
V-ca!culation. 

7 

BNRTIA 

Calculates inertia terms of 
momentum eq. for boundary 
pts. 

Skip if ROSSBY = 0. 

8 

ABNR3 

Calculates inertia terms of 
momentum eq. for boundary 
pts. on north and south 
exit of the anchorage. 

Skip if ROSSBY * 0. 

9 

BVELS 

Calculates velocity at in- 
terior pts. - main part of 
velocity calculation. 


10 

ASAF3 

Calculates velocity at boun- 
dary pts. along north and 
south boundaries. 


1 1 

GIVENU 

Specifies velocity at control 
pts., such as discharge, in- 
take and river head. 
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TABLE 2. Subroutines Required in Main Calculating Program ANCMN 

(Continued) 


No. 

Name 

Description 

Remark 

12 

CONV 

Calculates convective terms of 
energy equilibrium. 


13 

TCOMPT 

Calculates temperature. 


14 

CIVENT 

Specifies temperature at dis- 
charge outlet. 

Depends on run condi- 
tion. 

15 

WCAL 

Converts the OM (J2) vertical 
velocity to physical vertical 
velocity W. 


16 

ANCPR 

L . , 

Prints surface elevation, 
velocity (mag. with dir.) and 
temperature at 4 chosen loca- 
tions after completion of 
marching of DT, i.e. printout 
after each time step. 

Locations are to be 
chosen by user. 

17 

TPRLOK 

Prints out the velocity field, 
water depth, surface elevation 
and temperature field after 
one hour of simulation time. 


18 

STORET 

After TPRLOK for printout, 
the same data and relevant 
parameters are stored onto 
tape, either for later plotting 
or for continued calculation. 

Skip if KSTORE = 0. 

19 

ZZ1 

A subroutine called by ANCPP. 
and TPRLOK; it is for finding 
velocity dir. based on U and 
V components. 


20 

AMATN 

Is a data file containing all 
grid matrices and bottom depth 
matrix to be read in BAYBOT. 

Same data could be in 
card form, inserted 
after TINIT card. 

21 

C2007 

Climaticai data used in the 
run; the data is on hourly 
basis. 

Could also be in card 
form. 


TO 






SUBROUTINE DESCRIPTIONS 



This section describes the subroutines used in ANCMN, in order of 
their appearance. 

BAYBOT 

It reads the marker matrix MAR; the elevation matrix ELEV which is 
changed to depth matrix H by adding a constant STAGE; then four more 
marker matrices, MEX, MEY, MX and MY. It interpolates H according 
to marker MEX, MX and MY to find additional depth matrices, called HB, 
HU and HV, respectively. 

BAYINI 

It initializes most of the variable matrices. Since the initial condi- 
tion for velocity is a quiescent condition, Ut, U2, U3, VI, V2, V3, RX, 
RY, ETA1, ETA, ETA 3, UB, VB, OM, W and TC are set to zero. The 
quiet bay is assumed to have a constant temperature TINIT to begin with, 
so Tl, T2, T3 and TB are set to TINIT. 

READT 

This subroutine reads in input parameters, physical quantities 
and intermediate results stored on tape. 

IRREAD 

It reads in in-situ measured or IR scanned temperature as an alter- 
native initial condition to temperature calculation. This temperature is 
interpolated by hand and stored in the form of matrix TT. 

EQTEMP 

It calculates the equilibrium temperature T and surface heat ex- 
change coefficient K of a natural water surfac^ The procedures for 
these calculations are as follows: 

1. T . = T - (14.55 + 0.114 TJ(l-f) - [(2.5 + 0.007 TJ(l-f)] 3 

0 3 3 3 

where T . = dewpoint temperature in °F 
T° = air temperature in °F 
f a - relative humidity in fraction of unit 

2. 0 = 0. 255 - 0.0085 T aye + 0.000204 T ave 2 

where T = i(T + T .), and 6 is an intermediate step 
Tg = ambient surface temperature in °F 

3. f(u) = 70 + 0.7 u 2 , and u is wind speed in mph 
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4. 


K = 15.7 + (g + 0.26) f(u) 
s 


5. 


where K 

s 



where T 
H 


e 

s 


= surface heat exchange coefficient in BTU7(ft 2 day °F) 



= equilibrium temperature in °F 
= gross solar radiation in BTU/(ft 2 day) 


Note: The T , f, u, H and T are climatological data; however, care 

must be taker? for the hourly d&a TAIR, HUMID, WIND, SRAD and TSURF 
are in metric units. Therefore, in the above calculations, the basic data 
must first be transformed into English units, then the final results, T and 
K , must again be transformed back to metric units. T (TEQ) and K 
(SK) are used in subroutine CONV for T-calculation. 


BETA 

Computes n n+ ^ (ETA 3) and (OM) by using central differencing 

from the continuity equation. The vertical integration is done using 
Simpson's rule. The following symbols are used: 

DR = depth at half-integer j point on right edge, i + 1, of the cell. 

DL = depth at half-integer j point on left edge, i, of the cell. 

D2 = depth at half-integer i point on upper edge, j + 1, of the cell. 


D1 = depth at half-integer i point on lower edge, j, of the cell. 
DHUX = ^ 

dX 

DHVY = 

9y 

AH = total depth at the center of the cell, a half-grid point. 
BNRTIA 


It computes the sums of the nonlinear inertia terms, RX and RY, 
in the x and y momentum equation at each interior point of the domain. 
Note that RX (i, j, k) = RY (i, j, k) = 0 for k = KN. The following 
symbols are used, in their order of appearance: 

AH = depth either at u-pbint or at v-point 

det = — 

at ... ■■■■$ 

DHUUX = DHUVX = 

d X a X 
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DHUVY = 


3 Huv 


DHVVY = 


3Hvv 


ay 3 y 

02 s depth at forward half-grid point in either x or y direction. 
D1 = depth at backward half-grid point in either x or y direction. 
UBAR2 = average u at forward half-grid point. 

UBAR1 = average u at backward half-grid point. 

VBAR2 =s average v at forward half-grid point. 

VBAR1 = average v at backward half-grid point. 

E2 = averaged n at (i, j + 1) or (i + 1, J) 

El = averaged n at (i, j) 

D2 = depth at (i, j + 1) or (i + 1, j) 


D1 » depth at (i, j) 

dun 


DUOMS = 


3a 


DVOMS = 


3yn 
3 a 


DUS =1* 
3a 


DVS = 


3v 

3a 


RX = &i!!i + + „ + (, + a) 


3 x 

RY =|U!S£. + 
3 x 

ABNR3 


3 y 

3Hvv 


3 a 

3vn 


„ + H * 

3 y 3 a 


3a 3 t 

+ + foT? 


It computes RX and RY for points on boundary. The tide heights 
at half-grid points outside the north and south boundary are computed 
first. Since the open boundary is in x-direction # that is, only the v- 
point appears, RX = 0 and RY is given by 

RY = |Huv + |Hyy + H |UIL + (1 + a) |y Sr, 

3 x 3 y 3 a ' 3 a 3t 

In the computation, it is assumed: 

D2 * depth at half-grid point just outside the boundary 
a HV (i, JN) + North Tide Height, if D 2 is HB (i, JN) 

= HV (i, 1) + South Tide Height, if D2 is HB (i, 0) 

VBAR2 a v at half-grid point just outside the boundary 
a V 2 (i, JN, K) if it is north boundary 
= V2 (i, 1, k) if it is south boundary 
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BVELS 


It calculates u n+1 (U3) and v n+1 (V3) at interior points by central 
time differencing and DuFort-Frankel scheme. Note that the horizontal 
diffusion of momentum is neglected in the model. 


The equations for u and v are 


1 3Hu _ f 3 n . A v 3 2 u _ I ry 

fv - g — + B RX 

0 


R Tt 

1 3 Hv 


H 2 

A. 


— fn n ^ 4 . y 3 ^ ^ ay 

H TT' “ fu “ 9 3y h 2 3 2 “ RY 


H 


where RX and RY are the nonlinear inertia terms. 
The following symbols are introduced for briefness. 

A2 = Coriolis term 

ah ~ „ 3 n 3n 

A« - g -jjr ° r g jy 

AS = ^ RX or Jj RY 


A 6 = the rest of vertical diffusion term. 


ASAF3 

This calculates v n+ ^ (V3) at the v-points on the south (j = 1) 
and north (j - JN) boundaries. It is similar to ABNR3. The tide heights 
at imaginary half-grid points jiKt outside the south and north boundary 
are computed first. The term — is calculated at v-point at both j = 1 
and JN, with tide height at outsrde half-grid point and n at inside half- 
grid point. Since the u velocity on these boundaries are assumed zero, 
the Coriolis force term B2 is set tcjtero. Symbols B4, B5 and B6 stand 
for pressure, convection and diffusion terms respectively. 

GIVEN U 

It specifies velocities at cooling system outlet and intake. These 
velocities are determined from power plant flowrate. The river flowrate 
is also simulated by imposing velocities at river entry point. 


CONV 

It computes the sum of the convective terms in the energy equation 
at each point. Note that T is designated at half-grid points. The follow- 
ing symbols are used in this subroutine: 

AH = depth at point (i, j) where TC (i, j, k) is to be calculated. 


DR = depth at forward u-point 

DL = depth at backward u-point 

D 2; = depth at forward v-point 

D1 = depth at backward v-point 

DTZ (i, j) = temperature slope at the surface 

UR = forward u but at T-level 

UL = backward u but at T-level 


DHUTX = 


3 HuT 
3 x 


VR = forward v but at T-level 


VL = backward v but at T-level 
3 HvT 


DHVTY = 


3 y 


The convection term TC is written for 


TC 


3 HuT 3 HvT 

3 x 3 y 


+ H 


3 flT 
3a 


+ (1 + o) 


£T 3_n 
3a 3 t 


TCOMPT 

+ «j 

This subroutine computes temperature T (T3) for each point in 
the domain. The equation is 


1 3HT _ B v 3*T . „ ,3 2 T 
H3t " h 2 3 a 2 + ti h l 3x 2 



>-R TC 


where TC is the convection term obtained from subroutine CONV. The 
boundary condition on solid boundary is adiabatic, but on open boundary, 
T is assumed known. There are three different formulas for computing 
the although the same DuFort-Frankel format is used throughout. 

This is because the surface temperature slope is DTZ (i, j) and the bottom 
is adiabatic. The symbols here are 

D2TX = D2TY = 

3x 3y z 


GIVENT 


It specifies the temperature of cooling system discharge water and 
river delivery. 
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WCAL 


This subroutine calculates vertical velocity w (i, j, k) from modified 
vertical velocity ft (i, j , k) by using crtransformation formula. The fol- 
lowing symbols are used: 


DEX 


In. 

3 x 


DEY = ff 


DAHX = 

i 


3H 

3x 


DAHY = 

3y 


ANCPR 


It prints continuous records of elevation, velocity and temperature 
at certain particular points. 

All data are printed on a single line, with the first item on the 
line being the total simulation time TTOT in sec. Items for each point 
are: surface elevation, resultant velocity, direction in which the velocity 

vector points (deg positive clockwise from North) , and temperature, in 
that order. 

TPRLOK 

This subroutine performs the major printing tasks. The following 
variables are printed hourly, or controlled by printout interval TPRT : 

AVR = resultant velocity, cm /sec 

ANC = direction in which the velocity points 

W = vertical velocity, cm /sec 

ETA = surface elevation, cm 

T2 = temperature, deg C 

After TPRLOK is executed, the main program ANCMN prints out the total 
depth, H = h + n. at each point. Thus, the hourly printout of the rele- 
vant variables is completed. In this subroutine, there are two flags, 

KUV and KPROF. If both are zero, it skips the printing of velocity 
components u and v either presented in layers (k = 1, KZ) or in cross 
section along x-direction (j = 1, JM). These two flags are flipped only 
by interchanging the statements in the subroutine. 

STORET 

It records ail the relevant data and results of the preceding simula- 
tion hour. STORET puts one EOF on tape after each block, while the 
main program ANCMN puts another EOF after the last block of data is 
recorded. 
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ZZ1 



This subroutine finds the direction of the resultant horizontal velo- 
city. 
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SECTION 4 


LIST OF PROGRAM SYMBOLS OF MAIN PROGRAM 


This section presents the program symbols and their definition in 
alphabetical order. In many cases, the symbols are described with the 
aid of diagram to show the definition. 

DESCRIPTION OF MAIN VARIABLES 

The relative position and designation of variables are shown in 
Figure 2. The water depth, h, is described in integer values of i and 
j; the u-component is described at half-integer value of j and integer 
values of i and k; the v-component at half-integer value of i and integer 
values of j and k; the w-component at integer value of k and half- 
integer values of i and j; the surface elevation, n, is described at half- 
integer values of i and j; and the temperature, T, is described at half- 
integer values of i, j and k. The modified vertical velocity, ft, is de- 
scribed at the same place as w-component. Figure 3 shows the space- 

staggered grid system in horizontal projection. 

Table 3 lists all the symbols used for dependent variables appearing 
in the program. Since three levels of time step are used, same variable 
at different level is assigned with different symbols. The rule for 
symbolizing the dependent variables is: for variable F(iAx, jAy, kA a, 
r.At), F1(i, j, k) is used to denote the value of variable at n-1; F2(i, 
j, is) is the present value; while F3(i, j, k) is the value at n+1 thus to 
be computed; and FB(i, j, k) is the interpreted value of F2(i, j, k) at 
a set of grid points differing from where it is designated. 


t 


v(i, j+1,1) 



u(i+l, j/1) 


u(i+l, j ,2) 


Figure 2. Relative position and designation of the variables 
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Y(j) 


all points on 
these columns 
have same 
subscripts 



I all points in this 
square have same 
subscript i,j 


all points on 
these rows have 
same subscript j 


i-1 


water level ( 71) 
z velocity (w) 

depth (h) 

x velocity (u) 

y velocity (v) 


j 


x(i) 


Figure 3. Space-staggered grid system - plan 


TABLE 3. Symbols used in the program 


Symbols 

Argument 

Description 

U1, U2, U3, UB 

(i/ j, k) 

u-component 

VI, VI, V 3, VB 

(i/ \. k) 

v-component 

T1, T 2, T 3, TB 

(1# j, k) 

Temperature T 

ETA1, ETA 2, ETA 3 

(1. i) 

Surface Elevation n 

TIDE1N, TIDE2N, TIDE3N 

(0 

Tide Outside North 
Boundary 

TIDE1S, TIDE2S, TIDE3S 

(i) 

Tide Outside South 
Boundary 

DTZ 

(i / j) 

Heat Exchange at Water 
Surface 

RX; RY; TC 

(i, j, k) 

Convection Terms in u;: , 
v; T equation 

W; OM 

" ' 

(i* j, k) 

w-component; Non-dimen- 
sional ft 

WAT 

0, j) 

Total Water Depth or 

h + ri 


Note: In the program ANCMN, ETA 2 is labeled as ETA and ETX; the 

former is used for calculation while the latter for printout. 


MARKER MATRICES 

• (r'.yi ■' - 

The following integer-valued matrices are introduced to describe the 
grid rystem and to distinguish boundary from interior. 

MAR <i, j) 

MAR (i, |) identifies nodes in the full-grid system, i.e. 

MAR =0, (i, j) outside of boundary, hence no calculation 
MAR = 1, (i, j) inside or on a boundary, as shown in Figure 4. 

; ■ : IV .. 
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MEY (i, j) 


MEY (i, j) provides marker to the half-grid system with reference 
to the x-direction boundaries, as shown in Figure 6. 

MEY = 0, (i, j) outside of x-boundary, or exterior 

MEY = 1, (i, j) just inside a south boundary 

MEY * 2, (i, j) just inside a north boundary 

MEY = 3, (k, j) nowhere near to x-boundary, or interior 


UJ-. 

2 

, , 

; o 

0 

— -* — — 

f 

f 

r 

/ 

; o 

f 

'///////y/z 


y 

3 

2 



3 

3 

2 



1 

1 

1 


77 



r r* r r ////// 


Figure 6. MEY (i, j) matrix 


MX (i, j) 

MX (i, j) provides marker to u-points, as shown in Figure 6. 

MX = 0, (i, j) outside of y-boundary, or exterior 

MX = 1, (i, j) on east boundary 

MX = 2, (i, j) on west boundary 

MX = 3, (i, j) nowhere near to y-boundary 
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DEPTH MATRIX AND ITS DERIVATIVE 

The bathymetry of the area of interest is given by the matrix. ELEV 
(i, j) designated at full-grid points. The values in feet are positive for 
lake or inland waters as elevation above MSL. However, for coastal 
water, the depths are read from the survey chart and are designated by 
positive values. For certain periods of the year, the water level may 
differ from MSL; a stage (STAGE 1) is added to the ELEV (i, j) to obtain 
the actual depth matrix H (i, j). Note that the values of H (i, j) are in 
cm. To facilitate the calculation, the matrices HB (i, j) , HU (i, j) and 
HV (i, i) are derived from H (i, j), and are for depths at half-grid 
points, u-points and v-points, respectively. Thus, the following real- 
valued matrices are introduced. 

ELEV (i, j) elevations of the bottom with respect to MSL , 

HB (i, j) depth at half-grid points, in accordance with MEX/MEY 

HU (i, j) depth at u-points, in accordance with MX 

HV (i, j) depth at v-points, in accordance with MY 

SIZE OF THE MATRICES, OR DIMENSIONS OF SUBSCRIPTED QUANTITIES 

Let the grid work consist of IN x JN x KN nodes, i.e. IN nodes in 
x(i) direction, JN nodes in y(j) direction, and KN levels in o(k) direction. 
Then there are IM = IN - 1 half-grid points in x-direction, JM = JN - 1 
half-grid points in y-di reckon , and KZ = KN - 1 layers in cr direction. 

The values IN, JN, KN, IM and JM are the parameters to be specified 
at the beginning of the program and are determined by the grid used. 
Therefore, the dimensions of the matrices are given in terms of these 
parameters. Table 4 shows the size of the matrices already defined. 


TABLE 4. Size of the Matrices 


Symbol 

Least Size 

Given Size 

UI, U2, U 3 

(IN, JM, KN) 

(IN, JN, KN) 

VI, V2, V3 

(IM, JN, KN) 

(IN, JN, KN) 

T1, T 2, T 3, TC, TB 

(IM, JM, KZ) 

(IM, JM, KN) 

UB, VB 

(IM, JM, KZ) 

(IM, JM, KN) 

W, OM 

(IM, JM, KN) 

(IM, JM, KN) 


/' ; '■$ 

- A\ 
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TABLE 4. Size of the Matrices 
(Continued) 


Symbol 

Least Size 

Given Size 

RX, RY 

(IM, JM, KZ) 

\j 

(IN, JN, KN) 

ETA1, ETA, ETX, ETA3 

(IM, JM) 

(IM, JM) 

WAT, DTZ 

(IM, JM) 

(IM, JM) 

ELEV, H 

(IN, JN) 

(IN, JN) 

HB 

(IM, JM) 

(IM, JM) 

HU 

(IN, JM) 

(IN, JN) 

HV 

(IM, JN) 

(IN, JN) 

TIDE1N ... TIDE3S 

(IM) 

(IM) 

AVR, ANG 

(JM) 

(JM) 

MAR 

(IN, JN) 

(IN, JN) 

MEX, MEY 

(IM, JM) 

(IM, JM) 

MX 

(IN, JM) 

(IN, JN) 

MY 

(IM, JN) 

(IN, JN) 


AVR and ANG are used to facilitate printout of velocity and angle re- 
spectively. 


OTHER SYMBOLS OCCURRING IN PROGRAM ANCMN 
ALREF: Reference horizontal length L in cm. 

AV: Vertical eddy viscosity, estimated by means of 

A v = 0.0018 H^ 3 , h i n cm# A v in cm 2 sec *. 

BH: Horizontal eddy diffusivity, estimated by means of 

B^ = 0.0018 L^ 3 , L in cm, B^ in cm 2 sec 
BV: Vertical eddy diffusivity, estimated by the same formula as A y , 
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thus turbulent Prandtl No. is one. 

DHR : Time increment in hour as simulation continues. 

DTX: As a check on when to printout. 

DS : Increment in a-direction, in fraction of unit. 

DT: Time step in second. 

DX: Increment in x-direction f in cm. 

DY: Increment in y-direction, in cm. 

DUMS: 2DS. 

DUMX : 2DX. 

DUMY: 2DY . 

EST: Eastern standard time in the day of simulation. 

FCOR: Coriolis factor - 2W sin (latitude) , sec" 1 . 

e 

W = earth's angular rate of rotation, 
e 

-2 

C: Earth's gravitation = 980 cm sec . 

i: Index for x-axis. 

ICO: Flag. Set as 1 initially ; it changes to 0 when the calculation be- 

comes unstable. 

: 0 

IM: Maximum number of half-grid point in x-direction. 

IN: Maximum number of full-grid point in x-direction. 

J: Index for y-axis. 

JCTR: Index for simulation hour. 

JM: Maximum number of half-grid point in y-direction. 

JN: Maximum number of full-grid point in x-direction. 

K: Index for craxis. 

KN: Maximum number of full-grid point in a-direction. 

KZ: Maximum number of half-grid point in a-direction. 
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KSTORE: Flag. Set as 1 to store hourly result on tape. 

Set as 0 if no store Is needed. 

KVEL: Flag. Set as 1 if velocities are to be calculated, otherwise set 

as 0. 

KTEMP : Flag. Set as 1 if temperature is to be calculated, otherwise 

set as 0. 

LN: Set as 1 for 1st run of present case; set as n for subsequent n 

run. 

MBLOK: Data block number which is to compare with data block NBLOK 

which is to be read in. Used only when LN > 1. 

NBLOK: Index for data block. 

NCASE: Case number. 

NCY: Number of hours to be simulated in this run. 

QQ: 57.3, used for changing from deg to rad. 

ROSSBY: Rossby number. 

RR: Water density, = 1. 

RWEX: Number of hours between climatological input data,, = 1. 

TABN: Ambient water temperature outside of north entrance. 

TABS: Ambient water temperature outside of south entrance. 

THETA: Angle between north and y-axis, clockwise positive. 

TINIT : Water temperature at initial instant before the waste heat dis- 
charge start. 

TPRT : Time between printouts, in sec. 

TTOT: Total simulation time, in sec. 

TZ: Record of time for hourly printout. 

TZERO: EST hour at the beginning of present simulation run. 

The following symbols are used to specify tidal condition. 

AMPLIT: Tide amplitude, in cm. 


DPHASE: Phase lag per Ax, In hour. 

PERIOD: Tide period, in hour. 

PHASE: Phase difference between tides at north and south entrance. 

STAGE: Difference in cm between daily mean level and short-term 

(weekly) average sea level. 

STAGE!: Difference in cm between short-term (weekly) average sea 

level and iong term average level (MSL) . 

TSHIFT : Time shift for adjusting tide with EST, in hour. 

The following symbols are used to specify the hourly climatological 
conditions. 

TAIR: Ambient air temperature, deg C. 

HUMID: Relative humidity, fraction. 

WIND: Wind speed, cm sec -1 . 

WDIR: Direction from which wind is coming, deg measured clockwise 

from North. 

SRAD: Gross solar radiation, in BTU/(ft 2 day). 

TSURF: Surface water temperature, deg C. 

The following symbols are related to climatological data and appear 
in the calculation of wind stress, equilibrium ambient temperature and 
heat exchange at surface. 

EPSLON: Direction to which wind blows, in rad. 

WPR: Wind speed in m sec 1 . 

CTEN : Empirical constant appears in wind stress formula. 

TAU: Wind stress t. 

TAUX: x-component of wind stress x . 

TAUY: y-component of wind stress x . 

TDEW* Dewpoint temperature, deg C. 

TEQ: Equilibrium temperature, deg C. 

SK: Surface heat exchange coefficient in cal /(cm 2 sec °C) . 


SECTION 5 


PREPARATION OF SIMULATION RUN 


This section describes the preparation work needed for ANCMN run. 
The flow chart and the associated subroutines in Figure 1 and Table 2 
are referred to in tne following description. 

1. Specify number of full-grid points, IN, JN, KN and number of half- 
grid points, IM, JM, in PARAMETER statement. Although the domain 
of solution under consideration is usually smaller than the rectangular 
space of IN x JN x KN, the marker matrices will assure that the grid 
points outside of domain skip the calculation. To have a §Iear print- 
out, the variables at off domain point have been set to 10 . This 
value is beyond the capacity of the computer printout in printing real 
numbers (F format) so that stars will be printed and show the off 
domain area. 

2. Specify run number by input data LN, card #2: 

For LN = 1, i.e. first run, data file or card deck of AMATN 
is needed. 

For LN > 1, i.e. subsequent run, tape with previous result 
is needed. 

Specify flag for storage by KSTORE, card #3: 

For KSTORE = 0, desire no storage. 

For KSTORE = 1, tape must be provided for storing results. 

Specify flag for velocity calculation by KVEL, card #4: 

: For KVEL = 0, no V-calcuiation, thus thermal dispersion only. 

For KVEL = 1, do V-calculation, thus circulation included. 

Specify flag for temperature calculation by KTEMP, card #5: 

For KTEMP = 0, no T-caiculation, thus only a hydrodynamic 
model . 

For KTEMP = 1, do T-calculation, a complete hydrothermal model. 


Specify data block number MBLOK, to make sure the data read in 
from tape is correct, card #6. 

Specify number of hours to be simulated in this run by NCY, card #7. 

Specify the time between successive printouts by TPRT, card #8. 

Specify grid size by input data DX, DY, DS, card #9., 

Specify time step DT and tide data STAGE, AMPLIT, PHASE, DPHASE, 
PERIOD, TSHIFT by input data, card #10. 

$pecify Coriolis factor FCOR and stage STAGE! by data, card #11. 

Specify the angle between North and the y-axis of grid system by 
THETA, card #12. 

Specify reference length ALREF and Rossby No. ROSSBY, card #13. 

Specify number of hours between weather observations RWEX, card #14. 

Specify TZERO, the Eastern Standard Time when the simulation starts, 
card #15. 

Specify water density, vertical eddy viscosity, vertical eddy and 
horizontal eddy diffusivity, RR, A V, BV, BH, card #16. 

Specify initial temperature TIN IT, a constant for whole domain, card #17. 

3. In general, the first run of present case has: 

LN = 1, KSTORE = 1, KVEL = 1, KTEMP = 1, MBLOK = 0. 

Then the subroutines BAYBOT and BAYINI are used to initialize 
the calculation. This includes reading matrices, MAR, ELEV, MEX, 

MEY, MX, MY, by BAYBOT from data file AMATN. The same sub- 
routine calculates the derivative height matrices, HB, HU and HV. 

The initialization of various variable matrices is done in subroutine 
BAYINI and in the main program itself. 

fh 

4. In general, the continued rr run has the same NCASE with: 

LN = n, KSTORE = 1, KVEL = 1, KTEMP = 1. 

MBLOK = index number of the data block which is to be read in; the 
calculation will continue thereafter. In fact, the data being read con- 
tains all the information needed to continue the run. However, to 
allow for the freedom of matching tide of different amplitude, period 
and phase shift, an additional card (#18) specifying NBLOK, TTOT, 

DT, EST, AMPLIT, PHASE, DPHASE, PERIOD and TSHIFT is needed. 
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The data may be same as those contained in the tape or different 
from them so that the calculation goes on to follow another tide 
format. In accordance with this change of tide, the NBLOK, TTOT„ 
DT, EST may be reset. 

The main loop in the main program ANCMN is the hourly simulation 
loop, which is started with hourly climatological data card containing 
TAIR, HUMID, WIND, WDIR, SRAD and TSURF. The wind stress 
and equilibrium temperature are then computed and held thereafter 
as constants throughout that hour. 

The main part of the hourly loop is an internal loop for At increment, 
in which the main calculation is done in the order of (n, ft), (u, v) , 

T, W, then a printout of elevation, surface velocity and surface 
temperature at certain chosen half-grid points. 

The V-calculation controlled by flag KVEL consists of subroutines 
BETA, BNRTIA, ABNR3, FiVEL, ASAF3 and GIVENU. BETA computes 
n and ft. BNRTIA and ABNR3 compute the convection terms., RX and 
RY, for the momentum equations; this computation is decided by 
whether ROSSBY is zero or not. The (u, v) calculations are done by 
BVELS and ASAF3. The given velocities at control points are re- 
specified by GIVENU. The BNRTIA and BVELS are for interior 
points while ABNR3 and ASAF3 perform the same purpose except for 
normal velocity points along open boundaries, where the water eleva- 
tion is specified as a function of time. 

The T-calculation controlled by flag KTEMP consists of CONV, TCOMPT 
and G1VENT. CONV computes the convective term TC, then TCOMPT 
computes T, and GIVENT respecifies T at discharge points. 

After the completion of marching forward to (n+1)At, the variables are 
relabeled and UB and VB are computed as the horizontal components 
of velocity at centers of (I, J) blocks. Finally, before the printout 
of newly obtained variables at fixed locations to serve as flow develop- 
ment at fixed point, the surface velocity and temperature at a critical 
point are compared with preset values to see whether an instability 
has developed. If instability does occur, the program terminates after 
producing a hard copy of the latest result. 

The subroutine ANCPR produces step-by-step records of surface 
elevation, surface velocity and surface temperature at certain chosen 
points. These points are selected because of the variables that are 
believed to undergo the most change, as they are close to open 
boundaries, river exit and discharge out lot. 

The hourly loop included subroutines SOTRET and TPRLOK too; the 
former stores the hourly results as well as all pertinent .data onto 
tape for later uses, and the latter produces a printout of resultant 
horizontal velocities, vertical velocities, temperatures at four levels 
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and elevation of free surface. In addition, the main program ANCMN 
itself does the calculation and printout of total water depth, H = h + 
n, before starting next hourly loop. 

ANCMN performs the hourly loop NCY a number of times. 

Therefore, NCY number of climatological data cards are needed to 
provide the necessary data. 
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SECTION 6 


INPUT DATA 


The input cards for running ANCMN are given in Table 5 below. 
Note that the data symbols have already been defined in the previous 
section; however, the following remarks should be considered. 

* Free format is used for all data input. 

* Distinction must be made for integer and real number. 

* The order of these cards must be followed. 


TABLE 5. Input Data for ANCMN 


Input 

Card 

Content 

Symbol 

Definition /Value 

#1 

1 

NCASE 

= Case No. 

#2 

1 

LN 

= 1, if it is first run then data file 
or card deck AMATN is needed in 

#18 th 

= n, if it is n tn run 

#3 

1 

KSTORE 

} 

■ if 

= 0 no store, then there are no 
continued runs 

= 1 store intermediate results on tape 
for plotting or next run 

#4 

1 

■ . ;■ j 

KVEL 

j) • 

= 0 no V-calculation, i.e. dispersion 
of T by given (u, v) field 
= 1 do V-calculation, so momentum 
is under dispersion 

#5 

1 

KTEMP 

= 0 no T-calculation, i.e. hydrody- 
namic only 

= 1 i.e. hydrothermal model 

#6 

1 

MBLOK 

= No. of latest hour of last run 


TABLE 5. Input Data for ANCMN 
(Continued) 


Input 

Card 

Content 

Symbol 

Definition /Value 

#7 

1 

NCY 

= Number of hours intended for 
simulation in this run 

#8 

1 

TPRT 

= 3600 seconds, hourly loop 

#9 

3 

DX 

= x-direction grid size in cm 



DY 

- 

= y-direction grid size in cm 



DS 

= o-direction grid size in nondimen- 
sional unit 

#10 

7 

DT 

J 2 9 h max 



STAGE 

= Average level of tide-MWL, in cm 



AMP LIT 

= Amplitude of tide, in cm 



PHASE 

= Phase lag of the north tide behind 
the south tide, in hr 



DPHASE 

= Phase lag in east- west direction, 
in hour per Ax 



PERIOD 

= Period of tide at entrances, in hr 



TSHIFT 

- Time shift (in hr) for tide to agree 
with EST time 

#11 

2 

FCOR 

= Coriolis factor = 2W sin(lat), in 
sec e 

. '■ 


STAGE 1 

= MWL-MSL (datum for sounding), 
if MWL * MSL, in cm 

#12 

1 

THETA 

= Clockwise angle from North to the 
y-axis of grid work, in deg 

#13 , 

2 

ALREF 

= Horizontal reference length, in cm 





TABLE 5. Input Data for ANCMN 
(Continued) 


Input 

Card 

Content 

Symbol 

Definition /Value 



ROSSBY 

= Rossby No. which controls whether 
advection is needed to account for 
in the equations of motion, zero or 
nonzero 

#14 

1 

. 

. 

RWEX 

= Number of hours between climatical 
data, generally it agrees with hour- 
ly loop 

#15 

1 

TZERO 

= EST when the simulation run starts 

#16 

4 

RR 

= Density of water = 1.0 



AV 

= 0.002 (AHREF) 473 , AHREF = refer- 
ence depth in cm 



BV 

= Same value as A v 



BH 

= 0.002 (ALREF) 4/3 

#17 

1 

TINIT 

= Initial temperature, a constant for 
the whole domain 

#18 

A dec 
matric 
quirec 

k of cards or data file, called AMATN, to specify 
;es MAR, ELEV, MEX, MEY, MX and MY. It is re- 
1 only if LN =1. 

I 

#19 

9 

NBLOK 

= To reset data block number 



TOJT 

= To reset total time in sec if 
necessary 



DT 

= To reset time step AT if necessary 



EST 

= To reset EST 



AMPLIT 

= If tide changes 



PHASE 

= New phase lag 



DPHASE 

= New phase lag per AX 



PERIOD 

= If tide has different period 
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TABLE 5. Input Data for ANCMN 
(Continued) 


Input 

Card 

Content 

i 

Symbol 

Definition /Value 



TSHIFT 

= Time shift of the new tide 

#20 

A deck of NCY cards, each card contains six hourly 


weather data : , 




TAIR 

= Air temperature, deg C 



HUMID 

= Relative humidity in fraction of unit 



WIND 

= Surface wind speed, cm /sec 



WDIR 

= Wind direction, from which direc- 




tion wind is blowing 



SRAD 

= Gross solar radiation, BTU/(ft 2 day) 



TSURF 

= Ambient surface water temperature. 




deg C 


SECTION 7 


PLOTTING PROGRAM 


This section presents the descriptions of main plotting program 
PLOTMN and its subroutines. As mentioned earlier, the plotting and 
analyzing of the results constitute Part 2 of the three-dimensional, free- 
surface model. Here, the tape containing the hourly results of simulation 
is the main input. The control data cards help the user to choose the hour, 
the plot and the comparison. The output is in a plot tape which is used 
by a CALCOMP plotter to generate plots. 

DESCRIPTION AND FLOW CHART OF PLOTMN 

The purpose of PLOTMN is to read in the measured and/or calcu- 
lated temperature fields and to plot the isotherms. In addition, the cal- 
culated velocity field is plotted in a-planes (craxis), in certain x-cross 
sections (y-axis) and in y-cross sections (x-axis) , and the surface 
elevation field is plotted in contour plots. 

Since the main input is the data block from Part 1, the symbols 
and their dimensions agree with those that appear in ANCMN. In order 
to store the IR scanned surface temperature at four tidal stages for later 
comparison with calculated results, a TIR (IM, JM, 4) matrix is added. 

It is to be noted that temperature fields are interpolated at half-grid 
points from the mosaic IR images by hand. Several data cards contain- 
ing the quantities to be used in plot caption are read in as well as con- 
trol cards which assign the data block to be used (NPLOUT) and the plot 
to be done (IPLOT). A flag NSTAND is to assign which measured tem- 
perature field is to be compared with the calculated. The algorithm for 
PLOTMN is simple and straightforward since no complicated calculation 
is involved. The only calculation is to compute average deviation of 
calculated temperature field from measured temperature field at the same 
tide stage. The average deviation is given by 

.2, (TB(i, j, 1) - TIR (i, ))) 2 
5 2 - W ^—75 


where TB is the calculated temperature while TIR is the measured tem- 
perature by infrared, and .£.(!, j) is the number of surface half-grid 
points in the domain. '' 
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The isotherms of TIR and TB are the plots of main concern, as one 
is to be compared with the other in order to assess the accuracy of the 
model in predicting the hydrothermal dispersion of waste heat. Occasion- 
ally, the water surface contour, the surface current and the velocity 
profile are also of interest, as they depict the circulation set up by the 
tide and the wind in conformity with the configuration and bathymetry 
of the waters. The surface elevation contour is done by the subroutine 
ECHKON which is also used for plotting isotherms, but care must be 
taken to assign the contour values, since the surface elevation changes 
with tide; thus, the hard copy printout of surface elevation ETA must 
be consulted in order to choose the right contour values. The surface 
current is done by PLOTUV, while the velocity profiles in j(y) -cross 
sections and i(x)-cross sections are plotted by PLOTUW and PLOTVW, 
respectively. It is noted that the velocity scale for horizontal components 
is different from that for vertical component. The ratio is to remain the 
same as the ratio of horizontal to vertical length scale. Therefore, the 
velocity profiles are exaggerated in vertical direction; however, since 
the horizontal velocities of the top level (a = 0) are plotted right on the 
water surface, they show free-surface profiles too. Note that the j- sec- 
tions and i-sections are fixed by given I- J- values. They are chosen 
by the user's concern about the effect of plan-form configuration and 
bathymetry on currents. 

The flow chart for the main program PLOTMN is presented in Figure 
4,, and the subroutines are listed in Table 4 for quick reference. It is 
to be noted that several CALCOMP subroutines are also listed. 

SUBROUTINES 

ECHKON 

This subroutine calls subroutines CON LIN and ENDER. This program 
was developed by the National Hurricane center for map contouring using 
CALCOMP or MILCO-type plotter. ECHKON is the entry point for the 
package. It scans the rectangular gridded scalar field, such as surface 
temperature or surface elevation, to determine where to start a new con- 
tour. Each contour is done in a loop. Inside the loop the subroutine 
CONLIN is called to do the interpolation and drawing, and ENDER is 
called by CONLIN to label each contour of the same contour value. The 
exit of contour loop in ECHKON is made when the final contour value 
increased by increment has reached the specified maximum. Here, 

ECHKON is used for contouring TIR(i, j, N = 1, 4), TB(i, j, 1) and 
ETA(i, j). 

PLOTUV 

It computes the horizontal resultant velocity from components u and 
v at each level. In general, there are four levels corresponding to k = 1 
to 4. However, for the present problem, only the surface current is of 
interest; therefore, KPLOT is set to 1. 
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Figure 8. Flow chart for plotting program PLOTMN and its subroutines 
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TABLE 6. Subroutines Required in Main Plotting Program PLOTMN 


No* 

Name 

Description 

Remark 

1 

FACTOR 



2 

PLOTS 

Are CALCOMP Subroutines 

In UCS * ACALCOMP 
of UNI VAC 1100 

3 

PLOT 



4 

ECHKON 

Subroutine for plotting isotherms 
and contour of surface elevation; 
also draws the domain 

Calls subroutines ENDER, 
CONLIN, OUTLIN 

5 

READT 

Same as READT in ANCMN, for 
read in- stored data from tape 


6 

PLOTUV 

Plot U, V on different layer, to 
select the layer one can choose 
KPLOT value; normally it is the 
surface layer 

Calls subroutine OUTLIN 

7 

PLOT UW 

Plot U, W on chosen J sections 
west-east across the bay 

J section once chosen 
is fixed 

8 

PLOTVW 

Plot V, W on chosen 1 sections 
south- north across the bay 

I section once chosen 
is fixed 

9 

CAPTN 1 

Write common heading on each 
diagram 


10 

CAPTN2 

Write title for UV Plot 

* 

11 

CAPTN 3 

Write title for IR-T isotherms 


12 

CAPTN 4 

Write deviation of calculated 
temperature from IR-T 

i 


13 

CAPTN 5 

Write tidal stage on the 
diagram 


14 

CAPTN 6 

Write title for UW plot 


15 

CAPTN 7 

Write title for VW plot 


16 

CAPTN 8 

Write title for surface eleva- 
tion contours 
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TABLE 6. Subroutines Required in Main Plotting Program PLOTMN 

(Continued) 


No. 

Name 

Description 

Remark 

17 

CAPTN9 

Write title for calculated surface 
isotherm 


18> 

ENDER 

Write contour value to label 
contour 

Subroutine of CONJ-IN 

19 

CONLIN 

Called upon to draw individual 
contour 

Subroutine of ECHKON 

20 

OUT LIN 

Called upon to draw outline of 
the computational domain 

Subroutine of ECHKON 
and PLOTUV 

21 

FIT 

Fit a parabola to three point 
used in PLOTUV to interpolate 
water depth 

Subroutine of PLOTUV 

22 

VECT 

Calculates the velocity and 
calls AROHD to draw the vector 

Subroutine of PLOTUV 

23 

AROHD 

Are CALCOMP subroutines. 

In library file UCS * 

24 

NUMBER 

called upon in various sub- 
routines used in PLOTMN 

ACALCOMP of UN IV AC 
1100 

25 

SYMBOL 





PLOTUW 


It computes the resultant velocity based on components u and w. 

As mentioned, the vertical and horizontal components cannot be made to 
the same scale; therefore, the velocity profiles are distorted. The j-cross 
sections on which the velocity is computed and plotted are preassigned in 
the subroutine itself. For the present problem, plots are drawn for ) = 

4, 8, 12. All three plots are done on the same sheet. 

PLOTVW 

It computes the resultant velocity based on components v and w, 
and plots the velocity vectors on the vertical cross section along y- 
direction. The i values are likewise preassigned in the subroutine. 

Here plots are drawn for i = 4, 8, 12 and are on one sheet. 

INPUT DATA 

Table 7 lists the data to for PLOTMN. Free format is used generally. 
The total input consists of data cards and data files, but in the list, 
the input data have been numbered in the order of their appearance, 
regardless of whether card form or file form is used. 


TABLE 7. Input Data for PLOTMN 


Input 

Card 

Content 

Symbol 

DefinitionVValue 

#1 

5 

IPLOIR 

= 0, if no isotherm of IR obtained tempera- 
ture is desired 
= 1, otherwise 



IPLOCM 

= 0, if no isotherm of computed temperature 
is to be plotted 
= 1, otherwise 



NIR 

= Number of IR obtained temperature fields 



KPLOT 

= Number of the cr level to be plotted 



NCY 

= Number of simulation hours 

#2 

NIR 

TL(I) 

= Array of min. contour values for TIR 

#3 

NIR 

TH (1) 

= Array of max. contour values for TIR 

#4 

NIR 

Tl (1) 

= Array of increment values for TIR con- 
touring 

#5 

NIR 

TAI(I) 

• 

= Array of ambient temperature, assigned 
to out-domain points 

#6 

NIR 

QKI) 

= Array of EST time, for caption 

#7 

NIR 

Q2(l) 

= Array of wind speed values, for caption 
on TIR plot 

#8 

NIR 

Q 3(1 ) 

= Array of wind direction values, for cap- 
tion on TIR Plot 

#9 

NIR 

Q4(l) 

= Array of air temperature for caption on 
TIR plot 

#10 

NIR 

Q5(l) 

= Array of discharge temperature for cap- 
tion on TIR plot 

#11 

1 

Q6 

= Discharge flowrate, for caption in general 

#12 

5 

IPLOT(I) 

= Array of integers to assign the plot desired 


TABLE 7. Input Data for PLOTMN 
(Continued) 


Input 

Card 

Content 

Symbol 

Definition /Value 

#13 

NCY 

NPLOUT(I) 

= Array of integers to assign the hour de- 
sired to be plotted 

#14 

NCY 

NSTAND(I) 

= Array of intergers to assign the TIR to 
be compared with 

#15 

NIR 

ETAL(I) 

= Array of min. contour values for ETA 

#16 

NIR 

ETAH(I) 

= Array of max. contour values for ETA 

#17 

NIR 

ETAINT(I) 

= Array of increment values for ETA 
contouring 

#18 

1 

XL 

= Plot size in x-direction (in) 

#19 

2 

DX, DY 

= Spacing in x- and y-direction (cm) 

#20 

Data File 

1, J 

= The (i, j) value of boundary nodes, used 
for drawing domain's boundary 

#21 

Data File 

TIR (1 ,J,N) 

= To read in the IR measured temperature 
fields of different tidal stage, files like 
HD AT A, EDATA, LDATA, FDATA 
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APPENDIX A 


EXAMPLE CASE 


INTRODUCTION 


The present model has been successfully applied to thermal disper- 
sion study at Anclote Anchorage. The Anchorage is located on Florida's 
Gulf coast and north of St. Petersburg (Figure 9). It is a relatively 
shallow passage between the mainland and the Anclote Key. A series of 
barrier islands separates the anchorage from the Gulf of Mexico. Through 
natural channels to the north and south of the Keys, the Anchorage has 
an unrestricted exchange of water with the Gulf. 

The Anclote power plant operated by the Florida Power Corporation 
has two 515 MW, oil-fired, electrical generating units. Once-through 
cooling water is drawn from the Anclote River through a man-made canal. 
The six pumps delivering a total of 1,990,000 gpm (125.6 m 3 /sec) are 
designed to raise the water temperature 2. 8°C above the ambient. The 
heated water is discharged back into the Anchorage through the dis- 
charge canal with a dredged submarine extension. The designed total 
flowrate is approximately 53 times the long-term average flowrate of the 
Anclote River. At present, only Unit 1 is operative while Unit 2 is 
still pending permission. That is, the present flowrate is 62.8 m 3 /sec 
(995,000 gpm). 

The principal driving mechanism for current circulation is tidal 
flux at the north and south entrances of the Anchorage. The tide is 
predominantly semidiurnal with mean range of 2 feet. Earlier measure- 
ments of temperature and salinity indicated the currents flow in and out 
through both entrances; however, the exchange appears to be stronger 
in the south than in the north, or the currents generally flow north 
during flood tide and south during ebb tide. Moreover, the wind plays 
an important part too. The surface current direction depends on wind 
blowing at wind speeds exceeding 15 mph. 

The model as applied to the Anclote Anchorage shows its capacity 
of considering the effects of geometry and bathymetry, spatio-temporal 
variation of the free surface, various boundary conditions, including 
tides of different phase and range, surface heat transfer based on equi- 
librium temperature concept, and changing meteorological conditions. In 
addition, turbulence has been considered by using the eddy transport 
concept, and the effects of baroclinicity have been included. Again, the 
user should refer to Tuann et al. (1979) for the general review, mathe- 
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Figure 9. Anciote Anchorage location in the state of Florida 



matical formulation, finite difference implementation and numerical method 
of solution. 

The finite difference grid work is three dimensional and is designed 
to cover the area of interest. The grid size Ax x Ay x A a is that the 
least number of vertical layers is four. That is, a 4-layer, 5-level, 
vertical partition is a reasonable choice for the present generation of 
computer. The grid work is allowed to orient away from north-south, 
east-west system, but in general, the x-axis of the grid system aligns 
with west-east, and y-axis with south-north. Thus, the subscript i 
increases eastward, while j increases northward. The z-axis is chosen 
upward from mean water surface, while the subscript k increases down- 
ward from the water surface. That is, the k = 1 level is the free 
surface which is continuously changing, while k = 5 is always the bottom. 

For the study of Anclote Anchorage, the grid is 16 x 14 x 5 with 
five levels, each with 224 nodes for a total of 1120 nodes. The grid size 
used isAx=Ay = 417m. Depths off the natural coastal line are read 
from the Coast and Geodetic Survey chart. The maximum depth is 4 
m at the south end of Anclote Key. It was found that gravity waves 
were the dominating consideration with regard to the maximum allowable 
time step At. A 15 second magnitude of At was found to work well for 
the present grid system. 

Numerical results were obtained with the University of Miami Com- 
puting Center UN I VAC 1100 computer. The time histories of the three 
velocity components, (u, v, w), the surface elevation, ti, and the tem- 
perature, T, for a 24-hour simulation period were obtained with about 90 
minutes of computer time in most cases. This is a time ratio of about 
16:1 (the ratio of real time to computer time). 

PROBLEM STATEMENT 

Florida Power Corporation has a fossil fuel power plant situated at 
Tarpon Springs on the Anclote Anchorage. The discharge rate is 62.8 
m 3 /sec of water at temperatures, in general, 2. 8°C above the ambient 
water. On June 19-20, 1978, a team carried out an in-situ data acquisi- 
tion mission to gather field data on temperature and current. At the 
same time, four flights by NASA/KSC were undertaken to obtain tempera- 
ture by remote sensing method. These four flights were intended to cover 
four different tidal stages in the Anchorage. The remotely sensed data 
were processed into digicolor film. The in-situ measurement of surface 
water temperature at the time when the airborne IR data was undertaken 
provides a reference for IR temperature. With this reference, the iso- 
therms were drawn from the digicolor film. The in-situ current measure- 
ment data were used in plotting current of different depth. The ground 
measured temperatures were used to draw surface and subsurface iso- 
therms. 

Once the model has been verified for its versatility and its capacity. 
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and in particular, to the prediction of hydrothermal development in well- 
mixed shallow coastal waters, the model was run with actual tidal and 
meteorological data as input, but the initial temperature condition either 
could be that of uniform state, that is to assume the power plant start 
impulsively, or could be that of an IR temperature field, that is using 
IR data as the initial temperature field. The demonstrative runs were 
carried out to simulate the hydrothermal situation for several days. The 
predicted current fields are verified against the in-situ measured currents, 
and the predicted isotherms are verified against the IR-obtained surface 
isotherms and the in-situ measured subsurface isotherms. 

CALCULATION OF PARAMETERS AND INPUT DATA 

In this section, the specification grid system, reference and physi- 
cal parameters, tidal and meteorological data, discharge and intake velo- 
cities, ambient and discharge temperatures will be presented. The actual 
calculation of some input data quantities is carried out in detail for the 
purpose of demonstration. 

Grid System 

The map indicating the exact locations of power plant, intake and 
discharge outlets, and the sounding of the Anchorage was used to deter- 
mine the size of the domain, the grid system to cover it, and the arrange- 
ment of intake and discharge points in the system. So, a domain of 
about 6 km x 5 km covering most of the Anchorage was used. A grid 
system of 16 x 14 was selected in the horizontal plane. The size of the 
grid cell is Ax = Ay = 416.7 m; this size and the grid orientation has 
made the intake and discharge outlets to the open water fall in with 
nodes respectively, and the intake and discharge channels have 45° and 
315° orientation respectively. The depth was specified according to 
sounding chart. There are five nodes in the vertical direction. This 
gave a total of 16 x 14 x 5 nodes. The coordinate system and grid 
work are shown in Figure 10. The MAR matrix, bottom elevation matrix 
and four additional marker matrices are stored in data file AMATN. 

Reference Quantities 


L: Reference length = ALREF = Maximum Length = 6 km 

BH: Horizontal eddy diffusivity = 0. 002L^ 3 = 

0.002 x (600,000) = 100,000 cm 2 /sec 

BV: Vertical eddy xliffusivity = 0.002H^ (H = maximum depth) = 
0.002 x ( 360) 4/ ^ = 6 cm 2 sec 


For shallow well-mixed tidal water about three times the calculated 
value was found suitable. Here, we use BV = AV = 20 cm 2 /sec, i.e. 
Turbulent Prandtl No. = 1 
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RR: Density of water = 1.0 

THETA: 0, since the grid system orients along North-South 

RWEX: 1.0 

ROSSBY: 0.0, that is, based on test run, it was shown that the nonlinear 

inertia terms can be safely neglected to save computation 

TINIT: Initial uniform temperature or reference temperature = 20 deg C 

Calculation of Time Step, DT 

In order to determine the time step, DT, the stability criterion has 
to be followed, which is done as follows. 


DT « 


41 760 


JTgfT ~ j 2x980x360’' 


= 50 sec 


About 1/3 of this value is reasonably safe to use. Here we use DT = 15 sec. 
Calcuiation of Intake and Discharge Velocities 

1. Flowrate = 995,000 gpm (from power plant physical data) 

= 62. 8 m 3 /sec 
= 62. 8 x 10° cm 3 /sec 

2. Both intake and discharge canals are at 45° from N, therefore 

g 

31.4 x 10 cm 3 /sec is crossing the Ax and Ay at the point of 
intake and discharge. 

3. The average depth at intake and discharge is approximately 4' or 
122 cm, and the width is Ax = Ay = 41760 cm, so the cross-sectional 
area is 41760 x 122 cm 2 . 

4. The average velocity is: 


. _ 31. 4x10 

ave 41760x122 


= 6c 163 cm /sec 


5. The velocity profiles are assumed as shown. 


T * 



7.0 cm /sec 


52 


6. To allow for canal storage during tide change we assume the intake 
and discharge velocities to be sinusoidal, i.e. 

Intake: V3(14, 4, k) = 7 - 3 x cos[y£T:(EST - 7.625)] 

U3(15, 3, k) = V3(14, 4, k) for k = 1, 2, 3, 4 

Discharge: V3(14, 8, k) = 7 - 3 x cost^-fEST - 7.5)] 

U3(1 5, 8, k) = -V 3(1 4, 8, k) for k = 1, 2, 3, 4 

Where 7. 625 and 7. 5 are taken to be the phase shift which takes 
into account the time to travel from the south end of Anclote Key 
to the concerned point. 


Calculation of Tide on June 20, 1978 

Simulated diurnal tide is shown in Figure 11, where 

1. Period = 1 2. 5 hr 

2. Stage = short term average sea level - MSL = 48 cm 

3. Amplitude = i short term average tide range = 65 cm 

4. Time shift = 7.125 hr 

i.e. at 7.125 a. m., June 19, 1978, the tide at the south end of 
Anclote Key was zero. 

5. W - E lapse = 0.014 hr/DX 

Wave propagation speed C = J2gh = 72x980x360 = 850 cm /sec 
(H = 360 cm is the maximum depth of the Anchorage.) 

The time needed to travel one grid distance is 


DX 41760 
850 


= 50 sec = 0. 014 hr. 


We use 0.014 hr per DX for phase shift in W - E direction and the 
imposing tide at the south entrance is 

n s = 48 + 65 sinh^tEST - 7.125 - 0.014(1 - 1)] 


I = grid no. in W - E direction. 


S - N lapse = 0.15 hr. 

Distance from south entrance to north entrance is about 543,000 cm 
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6 . 



Figure 11. Semidiurnal tide for June 19-20, 1978 at south end of Anclote Key 


Time for wave to travel this distance is — 85Q =0.18 hr. We take 

0.15 hr as phase difference between the south and the north boun- 
daries; there, the imposing tide at the north entrance is 

n = 48 + 65 sin[~^(EST - 7.125 - 0.15 - 0.014(1 - 1)] 

'n 12.5 

Calculation of Anciote River Flowrate and Temperature 

1. The distance traveled from South Anciote Key to Tarpon Springs is 
20 DX. We estimate a time lapse of 0.5 hr to account for the re- 
tardation due to buffering effect of river storage and Anciote River's 
natural outflow. 

2. The average current, is estimated to be 20 cm /sec, therefore, we take 

U3(16, 1, k) =20 coslyj—fEST - 7.625)] 

V3(15, 1, k) =-20 costYJTgtEST - 7.625)] 
for k = 1, 2, 3, 4. 

3. The surface elevation at Tarpon Springs is to be calculated. 

4. To be in accordance with given velocities at Tarpon Springs, the 
temperature there is also assigned and its value has a 24 hr period 
instead of 12.5 hr. This temperature is 

T 3(1 5, 1, k) =26.9 + 0.5 sin[|j(EST - 12)] 

where the 12 hr shift is to make the peak temperature occur at 1800. 
Thus, the water in and out at Tarpon Springs has a temperature 
ranging from 26. 4 (before dawn) to 27. 4 (late afternoon) . 

Discharge Temperature and Gulf Water Temperature 

1. On June 19-20, 1978, the recorded discharge temperature at daytime 
is in the range of 29.3-30. 3. To account for the further drop of 
discharge temperature due to cooler ambient temperature at nighttime, 
we assume a sinusoidal variation of discharge temperature with diurnal 
period. 

2. Discharge temperature is estimated 

.// ' " ' ’ 

T 3(14, 8, k) =29.4 + 0.4 sin[||(EST - 12)] 
therefore, the highest discharge temperature of 30. 3°C occurs at 


6 p.m, and the lowest (29. 3°C) at 6 a.m. 

3. The Gulf water outside the Anclote Anchorage as well as the atmos- 
phere is sink to the heat disposal from the power plant; therefore, 
the boundary condition on temperature at the north and south en- 
trance is not considered as adiabatic as in normal case of far-field 
thermal pollution problem. Instead, we specify the outside-anchorage 
ambient temperatures. Again, they are 24 hr periodic and their 
values should be in accordance with the measured temperature in the 
same neighborhood. Here in compliance with measured data, we use 

•» 

T ab = 27.0 + 0.2 sin[|j(EST - 12)] 

for both ambient temperature outside the south and the north boun- 
daries. 

EXECUTION DECKS FOR CALCULATION AND PLOTTING RUNS 

The following execution decks are for use in UNIVAC 1100 computer 
at the University of Miami. These may have to be modified if a different 
computer ;> used. The programs and subroutines used in these runs are 
all comgjfted and stored in the file. 

Cailculation Run 

First Run — . N i 

1. © ASG, A FILENAME. 

The file 'FILENAME' is assigned for the run. 

2. 0 ASG, T 8., 16N, TAPENAME1 

A tape file names '8' is being assigned. The tape is 9-track, and 
the reel number is 'TAPENAME1.' 

3. © PRT, S FILENAME. ANCMN 

The main program 'ANCMN* is printed. 

4. @ PACK FILENAME. _ 

'FILENAME' is packed together, eliminating the space left- by deleted 
elements, and thus, condensing the file. 

5. © PREP FILENAME. 

Prepare an entry point table for the 'FILENAME.' 

6. .. © MAP, S 

Combines relocatable elements to form an executable absolute element. 

7. IN FILENAME. ANCMN 

8. Lib filename. 
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9. 


END 


10. @ XQT 

11. 3 

Case number (NCASE) . ( 

12 . 1 . 

First run (LN). 

13 . 1 

Store the calculation results on to tape 'TAPENAMEI' (KSTORE). 

14 . 1 

Calculate velocities (KVEL) . 


Calculate temperatures (KTEMP). 

16. 0 

Specify numbers of the latest hour of the last run (MBLOCK). 

17. 13 

Number of hours to be simulated (NCY). 

18. 3600. 

Print the results at each 3600 seconds (TPRT). 

19. 41760., 41760., 0.25 

Grid sizes in x-, y~ and a-direction (DX, DY, DS). 

20. 15.0, 0., 60., 0.08, 0.005, 12.5, 7.125 

Specify time step, the difference of average tidal level and mean 
water level, amplitude of tide, north-south phase lag, east-west 
phase lag per DX, period of tide, and time shift (DT, STAGE, 
AMPLIT, PHASE, DPHASE, PERIOD, TSHIFT). 

21. 0.66E-4, 48.8 

Coriolis factor and the difference of mean water level and mean sea 
level (FCOR , STAGED. 

22 . 0 . 

The y-axis coincides with North (THETA). 

23. 8. E 5, 0 . 

Horizontal reference length and Rossby number (ALREF, ROSSBY). 

24. 1 . 

Number of hours between climatic data (RWEX). 
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25. 7. 

Simulation run starts at EST 0700 (TZERO). 


26. 1.026, 20., 20., 50000. 

Specify water density, vertical eddy viscosity, vertical eddy diffu 
sivity, horizontal eddy diffusivity (RR, AV, BV, BH). 


27. 27. 0 

initial water temperature (TINT). 


28. @ ADD FILENAME. AM AT N 

Input data file 'AMATN' for specifying grid matrices and initial 
water depth. 


29. @ ADD FILENAME. FD AT A 

Input data file 'FDATA' for initializing temperature distribution. 


30. @ ADD FILENAME.C2007 

Input data file 'C2007 1 of climatic data. 


31. @ FIN 

Terminate this calculation run, 

Sebsequent Run — 

1. @ ASG, A FILENAME. 

2. @ ASG, T 7., 16N, TAPENAME1 

A tape file named '7' is being assigned; the reel number is 'TAPE- 
NAME1.' This tape was used in the first run for storing the hourly 
calculation results for 13 hours in 13 blocks. 


3. @ MOVE 7., 12 

Move TAPENAME1 to the 13th block which is the last hour result of 
the first run and is going to be used as input data for this subse- 
quent run. 

4. @ ASG, T 8., 16N, TAPENAME2 

A new tape named 'TAPENAME2* is assigned to store the calculation 
results of this run. 

5-13. Same as the cards 3-11 of the first ruin. 

14 . 2 

Continuing run (LN). 

15-17. Same as the cards 13-15 of the first run. 

18. 13 

The last hour of the first run is 1 3. 

19-29. Same as the cards 17-27 of the first run. 
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30. Same as the card 20 of the first run. If new tidal data is needed , 
this card has to be changed. 

31. @ ADD FILENAME.FDATA 

If different IR temperature distribution is needed, FDATA has to 
be changed. 

32. <9 ADD FILENAME. C 2007 

The data file C2007 has to be changed since the weather condition 
will be different from the first run. 

33. @ FIN 
Plotting Run 

1. <9 ASG, A FILENAME. 

2. <9 ASG, T 7., 16N, TAPENAME1 

A tape file named '7' is being assigned. 'TAPENAME1' stored the 
results of the calculation run. 

3. 0 ASG, T 11., 16, TAPENAME2 

A tape file named Ml* is being assigned. The tape is 7-track, and 
the reel number is 'TAPENAME2.' This is used for plotting tape. 

4. <9 PRT, S FI LENAME.PLOTMN 

5. <9 PACK FILENAME. 

6. <9 PREP FILENAME. 

7. <9 MAP, S 

8. IN FI LENAME.PLOTMN 

9. LIB FILENAME. 

10. LIB UCS*ACALCOMP. 

Call 'CALCOMP* plotter library. 

11. END 

12. @ XQT 

13. 1, 1, 1, 1, 6 

Plot IR isotherms and computed isotherms; only one IR temperature 
field is to be plotted. Plot isotherms on the surface level only, 
and run for 6 simulation hours (IPLOIR, 1PLOCM, NIR, KPLOT, 
NCY) . 

1 4. 27. 5 
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Minimum contour value for IP. plot (TL). 


1 5. 30. 0 

Maximum contour value for IR Plot (TH). 

16. 0.75 

Increment of contour value for IR plot (Tl). 

17. 27.0 

Ambient temperature (TA1). 

18 . 13 . 

EST for caption (Q1). 

19. 358.0 

Wind speed in cm / sec for caption (Q 2) . 

20 . 110 . 

Wind direction for caption (Q 3) . 

21. 29.4 

Air temperature for caption (Q4). 

22. 29. 5 

Discharge temperature for caption (Q5). 

23. 62. 7 

Discharge flowrate in cm 3 /sec for caption (Q6). 

24. 1, 1, 1, 0, 1 

Plot UV, UW, VW velocities and isotherms (IPLOT). 

25. 0, 0, 0, 0, 0, 1 

Plot the results at the 6th hour (NPLOUT). 

26. 0, 0, 0, 0, 1, 1 

Compare the deviation of computed temperature from IR tempterature 
(NST AND) . 

27. 0.0 

Minimum contour value for surface height (ETAL). 

28. 0. 0 

Maximum contour value for surface height (ETAH). 

29. 0.0 

Increment of contour value for surface height (ETA1NT). 

30. 6. 

6" plot size in x-direction (XL). 
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31. 42000., 42000. 

Grid size (cm) in x- and y-direction (DX, DY). 

32. 0 ADD F1LENAME.APER1 

Specify boundary nodes for plotting the boundary. 

33. <3 ADD FILENAME. ED AT A 

Input data file 'EDATA; 1 specify 1R temperature distribution at 
ebb tidal stage. 

34. <3 FIN 

Terminate this plotting run. 

The input data file AMATN, FDATA, C2007, APER1 and EDATA 
are listed in the Appendix B. If these data are not stored in the 
’FILENAME, 1 card decks have to be substituted. 
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SAMPLE OUTPUT (EST 1300, June 20, 1978) 


p-p. p.r» *>« p. p. p. p- P* r» r» p» p- p> p. t- »»■ p» n> p» p» p» *• p> p* p> p. p. p» i»>» p* p»p* p» p. p» p» r- ►* f*. p. f» '*'* x® «: 'o co or 
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• # 

«t 

» *cca-«:® CfJcoir«^.in«: 

• iMMg^vooaMriiach 
•*»•»*•**•••»•• 
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SAMPLE PLOTTING 


TIMEtJUNE 20, 1970 1 s 
MIND SPEED! CM/SEC ) : 

MIND DIRECTION! OEG/N ) * 
RIR TEMPERRTUREtOEG-C) * 
OISCHRRGE TEMPI DEG-C ) * 
OISCH FLOHRRTEC CUM/SEC ) 
LENGTH SCALE! ICM= X CM) 
VELOCITY SCRLEf CM/SEC ) » 


13.0 
358 -0 
110 . 

29 .4 
29 .5 
62.7 
41339 . 
52.49 


t \ \ 


f \ \ v 


• % 


» « » * • 


* « 


' i l / ' 


i / 
i i 
i i 
/ / 
/ 


■». "s. 



EBB TIDE 


Figure 12. Surface velocity, Anclote Anchorage by modeling 



tfrr 


TIMECJUNE 20. 1970 Js 13.0 

WIND SPEE0( CM/SEC ) s 350-0 

WIND DIRECTIONCDEG/N) a 1 10 - 

AIR TEMPERATURE! DEG-C ) * 29-4 

OISCHRROE TEHP(DEG-C)s 29-5 

OISCH FLOWRATE! CUM/SEC 62.7 
LENGTH SCALE ( 1CM= X CM): 41339. 

VELOCITY SCALE! CM/SEC)* 52.49 



EBB TIDE 

Figure 13. UW velocity, Anclote Anchorage by modeling 
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TIMECJUNE 20. 1976J* 

13.0 

WINO SPEEO! CM/SEC) * 

356.0 

WIND DIRECTION! DEG/N ) j 

no. 

AIR TEHPERATURE! DEG-C ) * 

29.4 

DISCHARGE TEMP!DEG-C)» 

29.5 

DISCH FLOWRATE! CUM/SEC ) * 

62.7 

LENGTH SCALE! lCKs X CHJ» 

41339 

VELOCITY SCALE! CM/SEC) i 

52.49 



Is 1 2 




v EBB TIDE 


V 






Figure 14. VW velocity, Anclote Anchorage by modeling 
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APPENDIX B 


FORTRAN SOURCE PROGRAM LISTING 

LIST OF SUBROUTINES OF THE MODEL 
Calculating Part 

1 . Main Program 
ANCMN 

2. Subroutines Called (in order) 

BAYBOT : Reads grid matrices and bottom topography 

BAYIN1: Specifies initial conditions 

READT : Reads data from tape for continuing run 

IRREAD: Reads 1R data as initial temperature distribution 

EQTEMP: Calculates equilibrium temperature 

BETA: Calculates surface elevation and vertical velocity in 

xy a coordinates 

BNRTiA: Calculates inertia terms in momentum eq. at interior points 

ABNR3: Calculates inertia terms in momentum eq. on the north and 

south boundaries 

BVELS: Calculates interior velocities 

ASAF 3: Calculates north and south boundary velocities 

GIVENU: Specifies velocities at discharge point and river mouth 

COMV: Calculates convective terms in energy eq. 

TCOMPT : Calculates interior temperatures 

GiVENT : Specifies temperature at discharge point 
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WCAL: Converts vertical velocity in xycr coordinates into xyz 

coordinates 

ANCPR: Prints surface height, velocity and temperature at four 

locations at each time step 

TPRLOK: Main printing program 

STORET : Stores calculating results onto the tape 

ZZI : Finds the current direction 

3. Data Files 

AMATN : Specifies marker matrices and elevations 

APER1 : Specifies outline of interest area 

C2007: Climates data on June 20, 1978, start at 0700 

HD AT A: High tide data from IR 

ED AT A: Ebb tide data from IR 

LDATA: Low tide data from IR 

FDATA: Flood tide data from IR 

Plotting Part 

1. Main Program 
PLOTMN 

2. Subroutines Called (in order) 

PLOTUV: Plots U, V velocities on different levels 

PLOTUW: Plots U, W velocities at different j sections 

PLOTVW : Plots V, W velocities at different i sections 

ECHKON: Plots surface isotherms and surface height 

ENDER : Subroutine in ECHKON, for labeling 

CONLIN: Subroutine in ECHKON, for contouring 

CAPTN1: Writes captions on the plot 
CAPTN2: Writes captions on the plot 



CAPTN3: Writes captions on the plot 

CAPTN4: Writes captions on the plot 
CAPTN5: Writes captions on the plot 

CAPTN6: Writes captions on the plot 
CAPTN7: Writes captions on the plot 

CAPTN8: Writes captions on the plot 
CAPTN9: Writes captions on the plot 

FIT: Fits a parabolar to three points 

VECT : Establishes the components of a vector 

OUTLIN: Draws the outline of interest area 

* The plotting subroutines PLOTS, PLOT, AROHD, NUMBER, SYMBOL 

are existing in UNIVAC 1100, University of Miami, CALCOMP file. 


SUBROUTINE LISTINGS 


• FLOW I 
1 

? 

4 

4 

6 ! 

7 

J 

9 

in 

1! 

1? 

13 

14 

1 5 

16 

17 

18 

19 

20 
21 
2 ? 

2 3 

24 

25 

26 
27 
2 ? 

24 

3C 

31 

32 

33 

34 

35 

36 

37 
39 
39 
4 0 
41 
4 2 
47 
4 4 
4 5 

46 • 

47 
49 

49 

50 

51 
S? 

53 

54 

55 

56 

57 

59 

4<J 

60 
61 
62 
67 

64 

65 

66 
67 
6 B 
t c 

70 

71 

72 

73 

74 

75 

76 

77 

78 


D.ANCHN FOR 
C********* 
C M 6 IN PR 
C C TCS G 
C NONLINE 

PAR* 

0 IKE 
CV2 ( I 
CETA1 
CM Y 1 1 

rue n 

CMEY< 

DIKE 

DIME 

DIKE 

DIME 

WRIT 

C 

C**1**CASE 

READ 

C 

C**2**LN: 1 
READ 
C 

C** 3**K ST 0 
READ 
C 

C«*4**K VEL 
READ 
C 

C**5**K TEM 
READ 
C 

C**6**T 0 A 
READ 
C 

C**7**THIS 

READ 

C 

C**g**F OR 
READ 
C 

C**9**DX,D 

READ 

C 

C •* 1 □•• TIM 
C**10**E-W 
READ 
C 

C** 1 1 ••ECO 
READ 
C 

C** 1 2** THE 
READ 
C 

C** 1 3** ALP 
READ 
C 

C»*I4**RUE 

READ 

C 

C** 1 5**T2E 
READ 
C 

C** 16**0EN 
READ 
C 

C-**17*MM 

READ 

C 

WRIT 

WRIT 

1 F I K 
IF (K 

1 3 C r CRM 
131 FORM 
WRIT 
WRIT 


CREATED ON 14 DEC 79 AT 10:41:39 

4 *<•* **#**i)i ************** ********* ****** ****** ********* ******* 

CORAH OF 3-0, FPEE -S URF A CE , HYDROTHERMAL MODEL. FEATURES: 

CUF OPT -FRANK EL DIFFERENCING; DIFFUSION OF T CONSIDERED; 

AR TERMS CAN BE INCLUDED; ASSOCIATED WITH PLOT PROGPAM-PLOTMN 

***************** 4 I*********************** »*«****• *********** 

FF TER If): 16 ,JN=14,KN=5,TM=15, JK = 1 3 

05 ION U1 (IN,JN,KN> .U2T1N, JN , K N > , U3 ( IN, JN, KN) , VI 1 1 N. JN,KNI, 

F, JN.KNI ,V3(IM, JN,KN> ,W (Ifl ,JM ,KN) ,OM(IM ,JM,KN > ,FTA 1(IM,JM) , 
1M,JM| .ETA3TIM ,JH» ,RX (IN, JN,KN > ,R Y (IN, JN,KN» , MX TIN, JN), 
6,JN),MAR(IN’, JN),H(IN,JN> ,HB ( I M , JM ) , EL E V < I N , JN » , 

F . JM,K N ) ,VB(IM.JH,KNI ,HU( IN,JN),HV(IN,JN> , MEXIIM.JM), 

1*. JM) 

65 ION T1 (TK,JM,KN> ,T2 (I«, JM,KN),T3( IM,JM,KNJ , tctim.jm ,xni 
NS ION AVRT JM 1 , ANG ( JM I ,D T Z ( I M , JH1 , T E M M , JM , KN I 
6 SION ETX( IK, JM), TI0E3HCIM) .T1DE2NCIM) ,TIDElN(IM) 

NS ION WAT TIM, JM), TIDE 3S TIM) ,TI0E2S TIM 1 ,TI DEIST IM1 
ET 6 ,2671 

NO UNDERTAKING, FOR LABELLING PURPOSE 
2, NCASE 

FIRST RUN OF PRESENT CASE; >1 SUBSEQUENT RUN 
2, LN 

FE=0 NO STOPECTEST RUN1, =1 STORE ON TAPE 
2, KS T ORE 

-0 NO V-CALCUL ATION, :i DO V-C ALCUL A T I ON 
2, KVEL 

F = 0 NO T-CALCULATION, =1 DO T -CALCUL AT I ON 
2, KTEMP 

5SURE MBLOK CONTINUE, THUS AS COUNTER OF SIMULATION HOUR 
2, MBLOK 

RUN WILL DO NCY*TPRT/360D HOURS OF SIMULATION 
2, NCY 

HOURLY CYCLE TPRT=3600; OTHERWISE CLIMOATA DO LIKEWISE 
2, TPRT 

Y GRID SI7E IN CH; OS SPACING IN SEGMA 01 R ECT ION I . 25 1 
2, OX,OY,DS i 

ESTE°,MWL-TEMPOPAL KWt , AMPL IT , N-S PHASE DIFFERENCE, 

PHASE DIFF PER DX, TIDEPERTOD , TICE SHIFT IN HOUR 
2, DT .STAGE , A MPL I T ,P HASE , DPH ASE , PERI OD , T SHI F T 

FrCORIOl.IS FACTOR, TEMPORAL MWL -ANNUAL MWLTREF. FOR SOUNDING > 
2, F COR ,S TAGE 1 

I A :A ?JGL E 6.E TWEEN NORTH AND GRID Y-AXIS, POSITIVE CLOCKWISE 
2, THETA 

EF:PEFERENCE HORIZONTAL LENGTH IN CM, ROSSBY NO (E S T IM A TED ) 

2, ALREF, ROSSBY 

X = NO OF HOURS BETWEEN WEATHFR OB S ER V AT I ONS ( I N GENERAL HOURLY) 
2, R WE X 

FO = EST. OF THE 0 AY WHEN THE SIMULATION RUN STARTS 
2, TZERO 

SITY.VERT EDDY VI S CO S IT Y , VER T t HORI EDDY DIFFUSIVITY 
2, RR,AV»BV,9H 

TIAL TE M P FOR THE WHOLE COMPUTATIONAL DOMAIN 
2, TIN IT 

E ( 6 , 32 I NCASE 
£(6,3) LN 

STORE. EO.D) WRITE (6,1 3D) 

STORE. GT.O) WR I TE (0,131) 

( T ( l X , *D A T A NOT RCCORDED ON TAPE’l 
*T( IX, ’DATA RECORDED ON TAPE’) 

E ( 6 , 4 ) NCY 
E ( 6 , 5 I OX, OY, DS, OT 


78 


79 

en 

«i 

82 

ey 

e* 

86 

87 

88 
84 
?n 

41 

92 

93 
9 « 
9 *) 

96 

97 

98 

99 

icn 
101 
102 
icy 
1 c*t 
105 
1 C6 
107 
1C8 
109 

no 

in 

112 

112 

114 

115 

116 
1.17 
11? 
119 
12C 
121 
122 
12.7 
12“ 
125 
1 26 
127 
12 8 
12’ 
1 20 
121 
1 22 
122 
1 34 
1 2 e 
136 
1 37 
1 28 
1 29 

140 

141 

142 
147 
1 4 “ 

145 

146 

147 

148 
14 “ 

150 

151 

152 

153 
1 54 
1 5 r 

156 

157 


WRIT E < 6 , 34 I STAGE,AMPLIT,PHASE,PPHASE,PERIOD.TSHIFT. 

WRITE I6 t 7l FCOR 
UR1 T E ( b « 1 C 1 1 1 THETA 
WR1TE<6,151 ALREF 

15 FORMAT! lX,*ALREF=*»F12.Cf* CM*» 

URITE(6,72) T2ER0 
WRIT E (6(73 ) RR,AV(BV,BH 
WRITEI6.806I RWFX 
806 FORM AT( 1X,»RUEX=» ,F10.2» 

WRITE(6,384> TINIT 
384 F0RMAT<1X, , TIN!t=»,F10.2» 

72 FORM #T( IX, *TZERO=» ,F10.2» 

73 FORM AT (lX,*RR=*,Fllj.2»* AV=*,F10.2,* BV = , ,F10.2,» PH=*,F10.2> 

6 = 980 . 

00 = 5 1.3 
K 2 =K A-l 
160= 1 

THET A = THET A/CQ 
OUMX =2 . *DX 
DUMY =2 . *0 Y 
DUMS=2.*DS 
IFILA.GE.2I 60 TO 1 
EST= T7ER0 
T AUX =0 • 

TAUY =3. 

T TOT =0. 

NBLO K=0 

CALL BAYBOT(IN»JN,KN»IM,JM,U1,U2»U3,V1,V2»V3»W»OH»ETA1,ETA»ETA3, 
CRX,RY,MX,MY,MAR,H,HB,ELEV,UB,VB,HU,HV,MEX,MEY, 

COUMX ,DUMY , OUMS (DX ,0Y ,0 S,OT ,FCOR , T A UX , f AUY ,G ,NCASE ,NBLOK , T TOT » 

CSTAGE1) 

C 

C**18**A 0 EC1*. OF AMATN CAPOS OR FILE AMATN IS NEEDED HERE, (ONLY IF LN=1>**« 
C 

CALL B/ YINT(IN,UN(KNyIH,JM,Ul(U2,U3,Vl,V2,V3,V,0N r ETAl ,ET*,ETA3, 

CRX,R Y,HX ,MY,MAR,H,HB(ELEV,UB , Vb,HU,HV.MCX ,MFY . 

CDUMX , DUH Y, OUMS, DX, DY, DS,OT, FCOR, T AUX, f AUY , G ,NCASE ,N8L0K , TTOT , 
CTl,T2,T3,TC,TB, TINIT) 

DO 5 C 1 1 = 1, IM 
TI0ElSin=0. 

TIDE 2S ( I » = 0. 

TIDE 2S(I 1=0. 

00 502 1=1, IM 
TIDE !N ( I 1 = 0. 

T IDE ?N( 1 1 = 0. 

TIDE 3N(I » = 0. 

GO TC 222 

* * 4****** *141 4*4**44*444* 

. CONTINUE 

CALL !7EA0T(IN, JN,KN,IM,JM,U1 ,U2,V1 ,V2 ,U,ETAI,T1,T2,TB, 

CE TA, PX,HY,MAR,M,HB ,UB , VB ,HU ,HV,MEX ,ME Y ,NC A SE , NBLO K , TT 0 T ,0T , 

CT IDE JN,TIDE?N,TID£ 3N , TIDE1S,TIDE2S,T1CE3S, STAGE, EST, 

CAMPL IT, PHASE ,0 PHASE .PERIOD 1 
IF(NELOK.NE.MBLOK ) GO TO 1000 
C 

0»***IF ANY OF FOLLOWING PARAMETERS NEED TO BE CHANGED, HERE IS CHANCE 

O4<194<<C0N 1 BLOCK NO, CONT TOTAL iTME.DT , ESI .TIDE DATA ....FOLLOW 

READ 2, NBL0i : . »Tl 0 T ,OT,EST , AMPLIT .PHASE , DPH A S E , PER IOD , TS HIFT 
C 

WRIT E(b,34) STAGE, A M PLIT, PHASE, DPHASE , PERIOD ,TSHI FT ,0T 
URITE(6,33) ESI ,NCASE ,NBLOK 
C 

0«***IF Ifi-T IS USED AS INITIAL TEMP, THEN RELIEVE FOLLOWING CALL 
0****THEN A DECK OF IR-DATA CARDS IS NEEDED IN IPREAO SUBROUTINE 
222 CALL IRREA0(IM,JM,KN,T1,T2J 
C 

C 222 CONT INUE 

0 *** 4 *************************** ****************** 

C«*«*****M fIN LOOP IN HOURCY-STEP, WITH HOURLY CLIMATICAL DATA 

»**** 4 * *********** 4 

DO 1 CO JCTR=1,NCY 
C 

0*2C**A DECK OF.NCY CLIMATICAL DATA CAROS FOLLOWS 

O*20**EACF card RECORDS AIP temp, humidity, WSPEED,UDIR,SORAO, SURFACE TEMP 
READ 2, TAIR, HUMID, WIND, WDIR , SR AO , TSUKF 
C 

WRIT E( 6,328 I T AIR ,HIJMI D, 4 INO , WO IR , SR AD , T SURF 
328 FORM/TS JXj* TAIR, HUMTD, WIND, WDIR, SR AO, TSURF • ,6F 10. 21 
CB=2 . 


501 


502 

C * 


79 


IS? 

tin 
161 
163 
16? 
166 
165 
1 66 
167 
16!? 

169 

170 

171 
173 
173 
1 76 

175 
1 76 
1 77 

176 
1 79 

iao 

lai 

182 

137 

186 

185 

186 
137 

i s e 

189 
1 SO 
191 
193 
193 
1 96 
195 

1 96 

197 

198 

199 

200 

2 C 1 
202 
2C7 
2C6 
205 
2C6 
2C7 
2 Cfi 
2 C 9 
210 
211 
2 12 
2 13 
216 

215 

216 

217 

218 
21" 
22C 
221 
2 2 2 
2 23 
2 2 »* 
2 25 
226 
227 
225 
229 

lYl 

232 

233 
236 
2 3 c 
236 


EPSLCN=IUDIR* 180. 7/57.3 
VPR=trN0/103. 

IFIW INO.LT. ICO. JCTEN=.0C125*IUPR**.2I 

IF! I UND.GE. ICO. I . AND. IU 1 NO .L T . 1 500. »» C T£N= .0005* SORT C MPR > 

IFIW TNO.GE. 1500. lCTENr.0026 
TAU=CTEN+.D0123* IUIN0**2> 

MUX = TAU*SIN15PSL0N-THET A > 

TAUY=TAU*C0S (EPSLON -THETA! 

CALL EQTEMPlTAIR,HUMID,UINO,UDIR,SRAO,TSURF ,TDEU , SK »TE 0 I 
OTX = TPRT 
TZ = 0. 

C * * * * 4*************** 

7C2 CONTINUE 

TTOTrTTOMDT 
T2=T2»OT 
DHR- CT/3600. 

EST=EST*OHR 

C 

C*****NORT P C SOUTH AMBIENT TEMP IS SINE OF 26 HR PERIOD, OR SPECIFIED 
TAB'S =27.0«.2*S INI .2618* (EST-12.11 1 ) 

T ABN =?7.0«.2*SINI .2618*1 EST-1 2.01 1 
C 

IF (K VEL >£Q • □ I GO TO 61 
C 

CALL BETA<IN,JN,KN,IM, JM , U2 , V 2 , OM , E TA 1 , E T A , ET A 3, 

CHB ,Hl,HV,K£X ,MEY, CB ,0X ,OY,OS ,DT I 
IFIRCSSBY.LE.O.J GO TO 61 

CALL BNRTIA ( IN , JN ,HM, I M , JM ,11 1 ,U'2 ,U 2, V 1 ,V2 , V 3 ,U ,0H , ET A 1 ,ET A , ETA 3, 
CRX.fl Y,HX,MY,MAR,H,HR,ELEV,UP,VB t HU,HV,MEX,KEY, 

CDUMX ,PUMY,DtiMS ,DX,DY,DS,DT,FCOR ,T A UX , T AUY , G ,NC ASE .NBLOK . T TO T ,CBI 
CALL ABNR3IIN, JN , K N .IM , JM , U 1 , U2 ,U 3 , V 1 , V2 , V 3 ,W , OH , ET A 1 ,EST, 
CETA.ETA3.RX ,RY ,MX ,MY,MAR ,H,H8 ,ELE V , UB , VB , HU ,HV ,MEX,M£Y , 

CDUMX ,DUMY,OUMS,PX,OY t OS,OT,FCOR , T A UX , I AUY , G ,N C ASE , NBLOK ,TTOT ,CB , 
CTIDElS F TIDE2S.TlDE3S,TIO£lN»TID52NfT10E3N, STAGE, 

CAMPL IT, PHASE ,DPH ASE, PERIOD, TSHIFT 1 
41 CONTINUE 

CALL BVELS fIN,JN,KN,IM,JM ,U1 ,U2,U3 ,V 1 , V 2 , V 3 ,W ,0M , ET A l , ET A , ET A 3 , 
CRX ,R Y.MX ,MY ,HAR , H ,HB,ELEV .UP , V B ,HU ,HV , M EX ,MEY , CB , 

COU MX f OUMY,DtlMS*OX,DY f OS»DT,FCOR f TAUX,IAUY,G,NCASt , NBLOK , TTOT , 

CALL ASAF3UN,JN,KN.IM,JM,Ul,U2,U3,Vl,V2,y3 ? W,OM,ETAl, 


C ETA, ETAS, RX 
CDUMX ,OUM Y ~ 


RX,RY,MX,MY,MAR,H,HB,ELEV,UB ,vp JhuJmv .M tX 
,DUMS,OX ,DY,DS,QT,FCOR , T AUX , I AUY » G , NC ASE , 


»ME Y ,CB , 
NBLOK, TTOT, 


CT IDE 1S,TTDE2S,TI0E3S,EST,STAGE,AV, T IOE 1H , T 10E2N , T IDE3N , 

CAMPL IT, PHASE, nPHASE,, PERIOD, TSHIFT) 

CALL GlVENU(lN»JN,KfJ,IK,JM,Ul,U2,U3,Vl,V2,V3,Tl,T2,T3,EST) 

61 CONT INUE 

IF CK 1EKP.EQ.01 GO TO 63 

CALL CON V ( I N , JN ,K N , IH • JM , OX , D Y , OS , DT , OUMX , DUM Y , DUMS , SK ,RR,BV, 
CU2,UF,tf2,VB,T2,TC,H",HU,HW,OM,ETAl,ETA,ETA3,CR,MEX,MEY,H,OTZ, 
CTE01 


CALL TCOMP T ( IN, JN ,K N, I H , JM , DX . 0 Y . 0 S , D 1 , DUM X .DUMY , OUMS , 
CHB»TC»T1,TZ»T3,MEX,MEY, ETA, CR,TfIR t ETAl,ET#3»mZ,BV»BH, TARN, 
CALL GIVENT(IN,JN,KN,IH,JM,U1,U?,U3,V1,V2,V3,T1,T2, T3, EST l 
63 CONT INUE 

DO 2 CO 1 = 1 ,IM 
DO 2CH J = 1 , JM 
ETXI ],J)=ETA3(1,J) 

ETA1 Cl,J)=ETA(l t J) 

2C0 E T A ( I,J)=ETA 3C I, J) 

DO 2 C 1 I = 1 j I N 
DO 2C1 J=1 ,JN 
DO 2C2 K =1 , K Z 
Ultl ,J,K)=U2(T,J,K) 

U 2 ( I , J , K I =1)7 (I , J , K ) 

VIII ,J,K ) =V2 1 1 , J , K ) 

V 2 1 1 ,J,KI=V3(I,J,K) 

202 CONT INUE 
201 CONTINUE 

B O 2C3 1=1, TM 
0 2C3 J=1 , JM 

IFIMEXI I,JI .EO.O) GO TO 2C3 

DO 2CM K = 1 , K 7 

TUI ,J,K )=T?|T,J,K) 

T2II ,J,K » = T 3 C I ,J,K7 

UBtI,J,K>=IU2II t J,KI«U2II*l,J,K)>/2. 


TABS 7 


80 


2 37 
23f 
2 39 
2 9C 
291 
29 2 
293 
2 99 
245 

296 

297 
29? 
299 

250 

251 

252 
25? 
259 

255 

256 

257 

258 

259 

260 
261 
267 
263 
269 

265 

266 
267 
269 

269 

270 

271 

272 

273 
279 

275 

276 

277 
*78 
279 
260 
281 
28? 

2 93 

289 

285 

286 
2£7 
299 
269 

290 

2 51 
25? 
293 
299 

295 

296 

297 

298 

2 90 

3 CO 
3 C t 
3C7 
303 
Z C9 
3C5 
3C6 
327 
3C5{- 
3 Of 
310 
3 1 li, 
312 


VBlI t J,K)=(V2(I,J,KMV2(I,J*l,Kn/2. 

2C9 COM INUE 
203 CONTINUE 

DTX=TPRT-T7 

CALL UCALIIN,JN,KN,IM, JM ,U1,U2,U3,V1 , V2 ,V 3 ,U , OM ,E T A ! , E T A , ET A 3, 
CRX.R Y,MX,MY, M AR , H , HB , ELE V ,UB , V8 , HU , HV , KEX , ME Y , 

CDUMX ,OUM Y , DUMS * DX ,07 ,0S ,0 T , FCOR , T AUX • TAUT ,G ,NC ASE » NBLOK , TTOT ) 

' IF(Vei3,l,l).GE. 200.1 1G0=0 
IF (A ES (TB ( 19,2, 1 1 > .GE .50. ) 1G0 = 0 

CALL ANCPR1IH,JM,KN»UB,V8»ETX,TT0T»R0SSBY,THCTA,T2) 

700 CONT INUE 

IFlIGO.NE.O) GO TO 861 
WRITE(6,703I 

C ALL TPRLOK ( IN , JN • KN, I M, , JM t U 1 , U2 , U 3, V 1 , V2 , V 3, U ,0M , ETA 1 ,ETX ,ETA3, 


, NBLOK, TTOT, 


* • * 9 * * 


_ . _L irKLUMiHiJNiKni ir,,on,ui|U<iUJ|¥i|VCi«:,«iun,i 

CRX ,R 7fMX,HY,HAR,H,HB|ELEV 1 UP,VB,HU ,HV ,MEX ,HEY , T2, 

CDUMX ,OUMY,DUMS,OX,OY,OS,DT,FCOR,TAUX,tAUY,G,NCASe,l 
CKVEL ,K TEMP , AYR ,ANG , THE TA ) 

GO TC 1000 
861 CONTINUE 

IF1T2.LT. TPRT) GO TO 702 

C* *** 4*****9«***************9* 

600 CONTINUE 

WRITE 16,607) E ST , T AIR , TEQ . T ABN , TAB S ,T AUX , T AUY 
607 FORM ATI IX, ’EST,TAIR,TE(I,TAN,TAS,TAUX, TAUY=» ,5F6.2 ,2F1 2 .6) 

00 393 1=1, IM 
DO 393 J=1,JM 

IF(MEXlI,J).EQ.O) GO TO 393 
DO 3 99 K = 1,KN 

IFlK.EO.l) TB1I,J,KI = T2(I,J,K )♦( IHBt I,J)*ET» CI,J) >*0S/ 2. ) POT? ( I, J> 
IF1K .EQ .KN) TBtI,J,KJ = T2(I,J,K.-l> 

IFl(H.NE.l).AND.tK.NE.KN)) TBII,J,K)=tT2(I,J,K)«T2II,J,K>l))/2. 

399 CONTINUE 
393 CONTINUE 

IF1K STORE. EO.O) GO TO 132 

CALL STORE T( IN, JN.KN.IK, JM,U1, U2 , V 1,V2,W,ET A1 ,T1,T2,TB, 

CETA, ►X, MY, MAR, H.HB.UB.VB, HU, HV, VEX, MtY.NCASE, NBLOK, TTOT, DT, 

CT IDE 1N,TIDE2N,T1DE3N,TIDE1S,TI0E2S ,T IDE 3S , S T AGE, EST , 

CAMPL IT , PHASE ,DPHASE, PERIOD) 

132 CONTINUE 

CALL TPRLOK ( IN, JN ,K N, I M, JM ,U 1 ,U 2 ,U 3, V 1 , V 2 , tf 3, U , OM , ET A 1 , E TX , E TA 3, 
CRX,RY,MX,MY,MAR,H,HB,ELEV,UB,VB,HU,HV ,MEX ,MEY , TB » 

CDUMX ,OUMY,DUMS ,DX ,DY, OS, DT, FCOR, T AUX, T AUY, G.NCASE, NBLOK, TTOT, 

CKVEL ,KTEMP,AVR, ANG, THETA ) 

WRITE 16, 812) 

612 FORM ATI lX, ’WATER DEPTHS, CM’) 

DO 8 13 1 = 1, 1M 
DO 8 13 J= 1 » JM i 

U ATI 1,J) = 1Q.**9 

IF(MEX1I,J).NE.0) UAT(1,J)=HB11,J)«ETA1I,J> 

813 CONTINUE 

DO 8 19 1 = 1, IM 

619 UR1TEI6.815) I , 1 U A T C I , J 1 , J= l , JM ) 

815 FORM ATI IX, ’1 = ’ ,19 ,1MF7.1/ ) 

WRIT E16, 2671 


ICO CONTINUE 

* * * « ,»*#****♦****♦ 

IF(K STORE. EQ.O ) GO TO 139 
END FILE 6 
WRIT E16, 3b8 ) 

3C8 FORM < T I IX, ’DOUBLE EOF PLACED ON TAPE’) 
139 CONTINUE 

2 FORMAT! ) 

3 rORMAT{lX,’LN=«,I6> 

9 FORM ATI IX, *NCY = ’ ,110) 

5 F0RMAT11X,.’DX=’,F10.D, * CM 

C» TIME STEP=*»Fl0.2»’SEC's 

_ ^ pE;? sec ,, 


*'*************** 


oy=’,Fio.o,’ cm 


DS=«,Fia.2, 


7 FORM ATI IX, ’FCORr* .E15 . 

32 FORMAT! IX, *NCA5E-»I9) 

33 FOR“#T( IX, ’START AT ES T= • ,F 6 . 2 , • CASE M0.=’,I9,’ NBLOK:' 
39 FCRMAT11X, ’STAGE, AMP, H-S PHASE. E-W PH ASE ,PE R , TSHI FT * , 6F7. 3 ) 

267 FORM ATI ’ 1* ) 

mi tnouiTiu. 'rnmiHTJiTniK Bnwn 


,19) 


703 FORmATI IX, .COMPUTATIONS BEING STOPPED BECAUSE OF INSTABILITY*) 
1011 F0RMAT!1X,’THETA’,F10.1,’ PEG’) 

1000 STOP 
ENO 


♦FLOW ( 1) 
1 


it 

■ f; 

i 

7 

8 
9 

10 

11 

12 

13 

IM 

1 S 
16 
17 
1? 
19 

rr 

21 

22 

23 

2 *• 

25 

26 
2 1 
2 » 
2 ° 


.BAY60T FOR CREATED ON 4 DEC 79 AT 09:44:24 

C*«************* **************************************** *************** 

C REPOS MARKER MATRICES C ELEV MATRIX, DETERMINES MATRICES HR, HU, HV. 

C ********* ************************************************************* 
SUBROUTINE B A YB 0 T ( 1 N , J N , K N , T M , JM , U 1 , U 2 ,U 3 , V 1 , V 2 , V 3 , U , 0 M ,ET A 1 , 
CETA, ETA3,RX,RY,MX,MY, M AR , H, HB , ELE V ,UB , WB ,HU ,H V ,ME X , MET , 

COUMX ^DUMT.DUMS’nXtDT.DS.DTjFCOR , T A UX , T AUT ,G ,NC ASL ,NBLOK , TTOT , 

0 IME AS ION UlHN.JN.KN) ,U2 t IN , JN ,KN > ,U 3 I IN . JN,«N ) , V 1 1 IN , JN ,KN ) . 
CV2<IA,JN,KN),V3{lN( i iiN f KNl,W(IM,JM,KN),0MfIM,JM,KMltETAHIM t JMl f 
CE T A ( lM,JM),FTA3flM,JHr,RXIIN,JN,KN),RYIIN,JN,KN),MX(lN,JN), 
CMYtIA,JN),MARIIN,JN),HIIN,JN > .HP l I H , JM > ,EL EV l IN, JN ) , 
CUBtIA,JM,KN),VBlIM,JM,KN) T HU(IN,JN),HVtI'N,JN) ,MEX 1 1* » JM) , 

CKEVI IM, JM) 

AG = 1 C.**9 
WRIT EI6, 51 ) 

DO 9 S 1=1, IN 

READ 2, (MAR(l.J) , J = 1 , JN ) 

WRIT£16,6G> I, (MARTI, J) ,J=1,JN) 

99 CONTINUE 
WR1TEI6*71 ) 

71 FORM ATT IX, ’BOTTOM ELEVATIONS BELOW MSL , FT*/) 

00 3 7 1=1, IN 

READ 2, IELEVII,J),J=1 ,JN) 

WRIT E (6, 30 I, lELEVII, J) , J=l, JN) 

37 CONTINUE 

00 ICO 1 = 1, IN 
DC ICO J=1.JN 

IFIMAR(I.J).EQ.O) GO TO 10D 
ELEV H, J)=-ELEVl I,J) 


20 


ELEV II ,J )=30.M6*ELEVII ,J) 

31 


HII,»)=STAGE-ELEV(I,J) 

7 r 

5 7; 

ICC 

HU|^ = AHAX1<C.,H{ I ,J) ) 

34 

WRITFI6, 31 > 

’S 


DC 26 1=1. IN 

WRITFI6.3G) I, IHII, J) , J=1,JN) 
CONTINUE 

36 


27 

29 

3? 

W RIT E 1 6 , 52 ) 

29 

52 

F CRM AT I 1 X , ’ MEX M A TRTX * 1 

MCI 


DO 5 l 1=1 ,IM 

4 1 
M2 


READ 2, (HEX (I . J ) , J=1 , JM ) 

WRITE (6, 60) 1, IMEX(>I,J),J = 1,JM) 

4* 

53 

CONTINUE 

MU 


WRIT E 1 6 , 5 4 ) 

MS 

5M 

F ORM ATI IX , ’MET MATRIX') 

46 


DO SS 1=1, IM 

M’ 


READ 2, CMET < I , J ) , J = 1 , JM ) 

MO 


URITE(6,60) I, IMEYiltJ ) ,J = 1,JM) 

M9 

55 

CONTINUE 

cr 

WRITEIb, 1 ) 

FORM IT < IX, *MX MATRIX') 

5! 

1 

5? 


DO 826 1=1, IN 

S3 


READ 2, ( MX ( I , J ) , Jr 1 , J K) 

5M 


WRIT E(6, 60 ) I, IMX ( I,J) ,J=1, JM ) 

55 

6 26 

CONT INUE 

56 


WRITE (6, 3) 

57 

3 

F ORM ATI IX, *MY MATRIX' ) 

SO 


00 MC2 1=1,1 M 

so 


R E *0 9, (HYII,J),J = 1,JN) 

60 


WP1TCI6.6D) I , IMY I I,J ) , J=l, JN) 
CONT INUE 

t! 

402 

62 


DO I C 1 1=1, IM 

6 2 


00 1C1 J = 1 , JM 

6M 


IF IM£.XI I ,JI .EO.O) GO TO 101- 

6S 


Hail ,J) = lHII,J)*H(IM, J)*H(I*i,J«l>«H(l,J*II)/M 

6 6 

1C11 

CONTINUE 

f 

DO 1 C2 1 = 1 ,IN 

6 P 


DO 1 C2 J = 1 ,JM 

69 


IF IMXC I ,J > .EO.CI 00 TO 102 

I'- 


HUH, J) = LH II, J)*HII,J *1)1/2. 

ll 

102 

CONT INUE 

7? 


DO 1 C 3 I = 1 , 1 M 

73 


DO' 1 C3 J=1 i JN 

7 M 


IF( M m, J) .EG.O) GO TO 1 a 3 

75 


HVII ,J1 = IHII,JI *HII*1, J)J/2. 

76 

103 

CONT INUE 

77 

WRITE (6 .ID 9) 

FORMAT I IX, ’HE MATRIX') 

7P 

109 


K 


s. 




82 




99 

99 


00 1 10 1 = 1 ,IH 

no uriteio.joi i,ihb<i,ji,j=i,jhi 

HRlTE<6,llil 

111 F ORM AT < 1 X, *HU MATRIX* ) 

DO 1 12 1 = 1, IN 

112 WRITE <6 »3C I I , (HU ( I ,J 1 ,J= 1 , JM I 
WRITM6.113! 

113 FORMATtlX.’HV MATRIX*! 

00 1 19 1=1, IM 

114 URITE<6,301 I,(HVtI,JI,J=l,JN) 
2 FORMAT C > 


40 F0RMAT(1X,*I=* 

41 F CRN AT ( 1 X » *ROT 
SI FORM A T 1 1 X » *M AR 
60 F CRM Alt IX,*I = * 


MATRIX*/! 
,I4,10X, 15141 


61 F0RMATC1X.*STAGE=*,F10.2! 
250 FORM AT I* l* I 


RETUFN ' 


£ NO 
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C ********* ********** ************* ******* »** ******** **$* ********* ******* 

C INITIAL I2ES MOST OF THE DEPENDANT VARIABLES 

C ********* I************************************* ******** **************** 

SUBROUTINE B AY1NUIN, JN,KN, IM , JM , U 1 ,U2 ,U 3, V 1 , V2, V 3,W ,0M,ET A 1 , 
CETA,ETA3,RX,RY,MX,MY,MAR,H,HB.ELEV,Ue,ve,HU,HV,NEX»MEY, 

COUMX .OUMY.OUMS ,PX ,DY. OS,DT,FCOR ,TAUX,TAUY,G,NCAS£,NBLOK,TTOT, 
CTlfT <»T3,TC,TB,TINITi 

■ OIMEASION Ul(IN,JN,KN»,U2CIN,JN,KNl,U3tIN,JN,KNJ,VHIN,JN,»(N» f 
CV2a A,JN,KN> ,V3<1N,JN,KN> ,UTIM,JM,KNI ,0N < I M , JM ,K N 1 ,FTA H IN, JH I « 
CETAT IN, JM1 ,ETA3U M ,JH1 f R X 1 I N , JN ,KN 1 ,R Y I IN , JN ,KN 1 , MX I IN « JN ) , 

CM YU A, JN), HART IN. JNl.HUN, JN I ,HB 1 1 M, JM 1 ,ELE V I IN. JN I, 

CUB (I A,JM,KN> f VO(lM,JM,MNl ,HU ( I N , JN 1 ,HV t I,N t JN > ,MEXIIM,JN) ( 

CMEVl iM.JMl.TPfIM, JM,KN ? 

DIME AS ION tlUM,JM f KN>,T2UM,JM,KNI,T3UM,JM,KN>,TC«IM,JH.KN» 

K Z=K A- 1 
DC ICO 1=1, IN 
DO 1 CO J=l, JN 
DO ICO K=1,KN 
Ul( I ,J,l<)=3. 

U2U,J,K>=0. 

U3II ,J,K)=D. 

V1CI ,J,K 1=0. 

V 2 ( I , J , K 1 =0. 

V 3 1 1 , J , K ) = C. 

RX(! ,J,K 1=0. 

RY (I ,J,K 1=0. 

ICO CONTINUE 

DO 2 CO 7=I,IM 
DO 2 CO J = 1 » JM 
C TA 1 (I , J) = 0. 

ETA1 T , J 1 =0 . 

E T A3 (I,J)=a. 

DO 3C0 K = 1 »KN 
UBCI ,J,K )= 0 . 

VB1 1 , J , K I =0. 

WU,»,H)=G. 

OM»I,J,K>=0. 

Till ,J,K1 = TTNIT 
T21I ,J,K ) = TIKIT 
T 3 1 1 ,J,K):TIHIT 
tea ,j,k i=o. 

TBII , J»K 1 = TINIT , 

300 CONT IMUE 
200 CONT 1NUE 
ABJ = 10. **9 
00 9 CO 1 = 1, IM 
DO 9 CO J=I,JM 

IFtKEXII.Jl.NE.Ol GO TO 900 
etai a , j i = ab j 

E TA ( 1,J1=ABJ. 

ETA3 U , J 1=AEJ 
DO 5 CO K = 1,KN 
TB(I ,J,K1 = ABJ 
W C I , . ,K 1 =A8 J 
SCO CONTINUE 
9CU CONTINUE 
RETURN 
ENO 
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• Rt AOT FOR CREATE!) ON 7 OFC 79 AT 10:08:01 

******* ******************************** i 

C READS IN HOURLY PESULT STCREO IN TAPE FOR CONTINUE RUN OR PLOTTING 

C *****SUBR CUTINE*RE ACT* lNtjN?8N*l£f JM »U 1 »U2 « V 1 » VZ *W ^£14 , ** 

CETA.ftX.MY.MAR ,H,H9,l)B, VB,HU,HV ,MEX ,MEY,NCASE,NeLOX,TTOT,OT , 

CTIDE 1N,TIDC2N, TIDE3N, T IDE IS ,T IDE2S ,T I 0E3S , S T AGE ,EST , 

CAHPL IT, PHASE, DPHASE. PERIOD! 

DIMENSION UIIIN.JN.KN) ,U2 C IN , JN ,K N ) , V 1 I I N , JN , KN 1 , V 2 1 1 N , JN . KN > , 

CV UM ,JH,KN ) ,ETAl I IM,JM I ,£TA (IM, JM) ,MX IIN, JN)»MY( IN, JN) »MA k (IN, JN) , 
CH ( IN , JN ) , HP C IM » JM I ,UB C IM , JM *K N ) ,VB (1H,JH,KN I, 

CHUtI N,JN ) ,HV (IN.JN) .MEXIIM.JM) ,HEY (IM, JM) ,TB( IK,JM,KN) 

DIMENSION T1 CIM,JM,KNI ,TIDE IN 1 1*» ! , T IDL2N ( IM ) , T IDE 3IJ I IH ) 

DIHENS ION T2(IM,JM,KN) , TIDE IS (IM) , T I0E2S I IM I , T IDE 3S 1 1 H ) 

1 CONTINUE 

READ I7,END=1) NBLOK 

READ (7) (HU1(I,J,K) ,K = 1 , KN ) , J= 1 , JN ) , I = 1 , IN ) , 

Cl IIU2CI,J,K> ,K=1,KN),J=1,JN),I=1,IN), 

C) MV HI, J,K!,K = 1,KN!,J=1 I JH),I = 1,INI, 

Cl ( IV 2(1, J,K) ,K=1 ,KN),J=1,JN),I=1,IN)» 

Cl CHA FI I, J! ,J = 1, JN! ,I=1,IN) , 

Cl IMX It, J) , J=1,JN) ,f = l ,IN) , 

CIIMY II, J) , J=l, JH) ,1=1, IN) , ^ 

Cl (HU II ,J> , J- 1 , JN ) ,1=1, IN) , 

C( IHV II,J),J=1, JN) ,1=1, IN) , 

Cl IHI I,J) ,J=1,JN),I=1,IN> 

READ (7) (II HII,J,K) ,K = 1 , KN ) , J= 1 , JH ) , 1=1 , IH ) , 

Cl UUFII,.J,K ) ,K=1 ,KN),J-1,JM> ,1 = 1 ,1K> , 

Cl I (Veil, J,K ) ,K = 1 ,KN1,J = 1 , JH 1,1=1 ,IM) , 

Cl II T II I , J,K ) ,K = 1,KN) , J = 1 , JH) , 1=1 , IM! , 

CHIT 211, J,K ) ,K=1,KN),J = 1 ,JM! ,I=1,IH) , 

Cl II TEH, J,K) ,K=1,KN),J=1 ,JM) ,1 = 1, IK! , ,/ 

Cl IETA1II,J!,J=1,JM),I=1,IM), - .A-,. 

Cl IETAlI f J-),J=l,JM),I = l,IM), 

Cl I ME XI I, J) ,J=l,JM) ,1=1 ,IM), 

Cl lMEHI,J),J=l,JHI,I = l,IH) f 
Cl IHI3 (I,J>, J=l, JM) , 1 = 1, IM) , 

ClTIDF.INI 1 1,1 = ),IK), 

Cl TI0E2NI I! , 1 = 1 ,IH) , 

CITIDE3NII),I=1,1M), 

CCTIDE1SII) ,1=1, IH), 

Cl TIDE2SII) ,1 = 1, IM), 

Cl TIDE3SIII ,1=1 ,IM ! 

READ (7) TTOT,NCASE,DT, STAGE, EST,AMPLIT, PHASE, DPHASE, 

CPER1 CD 

READ 17, EN 0=500) AAA 
RRITEI6.2) 

2 FORMAT I IX, *N0 EOF AT END OF DATA*! - 
NBLO P = “l GO 

GO TC 1000 
500 CONTINUE 

HRITEI6.112) TTOT.NCASE, NBLOK 
112 FORMAT! IX, 'DATA READ FROM TAPE, TTOT =* ,F 10.0 , 

C* CASE N8R-’ ,15 ,* BLOK NBR=*,15) 

1000 RETUFN 
ENO 
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I.IRRE&D SYF CREATED ON 6 OEC 79 AT 09:47:52 

C********* *********************1***************************** *********** 

C IN THE CASE OF STARTING FROM GIVEN T-FIELD, READS IN THE IR -TEMP 

C ********* ************************************************************* 

SUBROUTINE I RRE AD (IM . JM « KN , T 1 , T? I 
OIMEtiSION T1 CIM,JM f KNl , T 2 I IM , JH.KN I 
C*****0 ATA READ FROM ONE OF THE IF ,H,E ,L IDA I A BY IR**************** 

DO 5 SO J=1,JM 

S5C READ 2. ( T 1 C I , J, 1J , 1 = 1 , IM > 

2 FORM IT I I 

DO SIS Jrl.JM 
DO 5*5 I=1»IM 

DO 5 S3 K -2 *K N,_ , f| 

553 TltI*J,K) = THI,J,U 
00 S 5*1 K = 1,KN 

554 T2II ,o,K> = Tl(I,J,n 

555 CONT jNi'JE 
RETURN 

E NO \ , 

••Vi. "• * 

h ■ 
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M CREATED on 12 DEC 79 AT 20:36:54 

C ********* ********************************* ******** ****** ************** 

C COMPUTES EQUILIBRIUM T AND SURFACE HEAT EXCHANGE COEFFICIENT S* 

C ********* ********************************************* **************** 
SUBROUTINE E9TEMP(TAIR r HUM10 f WIN0,NDIRiSRAD,TSURF f TDE« t SK ,TEOI 
TAIR l=TAIR+9./5.*32. 

TSURF1=TSURF*9./S.«72. 

WINDl=UIND/44.7 
SRAO l-SRA0*1440« 

TDEW ] = fl4.55*.114*TAIRl)*(l.-HU*lDl 

TDEU (2.5-».0D7‘*TAIRl }*< 1 . -HUMID 11**3 , 

IDEM =TAIR1 -TDEU1-T0EU2 > / 

TFIL>=<TSURF l*TDEUI/2. , O 

BETA :.2S5-.QC8 5*TFILM* • 000204 *TFILM** 2 

FCNU =70. ♦.7*WI NO 1**2 

SK=1S,7*CBETA*.26I*FCNU 

TEQ=T0EW*SRAD1/SK 

SK=S 4*. 00000564 

TEO= «TE0-32.l*5./9. 

RETURN 

ENO 
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♦ rLOWm.BETA FOR CREATED ON 4 DEC 79 AT D9:46:lt 

1 C ****** ***<*** ***************** ******************** *****>M*« *********** 

2 C COMPUTE? ETA AND OMEGA OF ADVANCE TIME, USES SIMPSON *S RULE FOR INTG 

* C ********* **»**♦ ****4 ******************* ********* *********** *********** 

4 SUBROUTINE SETA(1N,JN,KN,IM«JM,U2,V2,0M«ETA1,ETA,ETA3, 

5 CHB,Hl,HV,MFX,MEY,CB,OX,DY,OS,OT) 

6 DIME AS I ON U2 ( I N , JN , KN I ,V2 ( If!, JN ,KN l ,OM ( IH , JM, KN 1 , ETA 1 ( IM, JM » , 

7 CETAC IM, JMI,ETA3CIM,JHI ,HB (IM , JH ) ,HU ( IN, JN I , HV ( IN, JNI , HEX C IM, JM I , 

P. ' CHE V 1 I M , JM ) 

9 DIME AS ION F * 5 1 I 

10 S25=-.25 

11 S5D=*.S0 

12 S7S=-.75 

13 B=2. 

19 ABC- 09*0 T 

15 KZ=KA-1 

16 DO 9 CO 1 = 1, IM 

17 DO 9 CD J=1,JM 

1 R IF(MEX(l,JI.EC.O) GO TO 900 

19 0R=HIII«1,J)+IETA(1+1,J)»ETA(I,JI )/?. 

2E IF(MEX(I,J1.EC.21 OP=HU(IM,J)*ETA <1, Jl 

21 0L=HUI,J>*(ETA(I-l,J)*ETA(T,J>)/2. 

22 IFCMEXd, JI.EO.l ) OL=HUII,J>«CTA(I,J) 

23 D2=HV(I,J+l»*CETA<I,J»ll*ETA»r,J) 1/2. 

2 U IFIMEY(I,J1,EC.21 0?=HV(1,J*1 META ( I , J ) 

25 D i=H V ( I , ,1 ) + ( ET A ( I « J~1 1 + E T A ( I , J I I / 2 • 

26 IFJMEYCI, Jl.EO.il D1=HV(I,J1*ETA(1,J» 

27 DO ICO K = 1,KZ 

2P OHUX :(DR*U2( 1* 1 , J ,K >-DL*U2 < I ,J,K ) ) /DX 

29 OHV Y s ID 2*V 21 I,J*1»KI-D t*V2 1 1 , J, K I 1/DY 

30 F IK) rOHUX+DHVY 

31 ICO CONTINUE 

32 SUM= (Ft 1 1*9. *F (21 ♦2.*P (3>-»4.*F(4 11/3. 

37 DET=*OS*SU.“ 

39 ETA3 (T, JlrETAKI, J1«ABC*0ET 

35 AH3 = HB(I,JM£TA3(I.J> / 

36 IFUH.GT.O. 1 GO TO 200 

37 ETA3 (I»JI=(1C.**(-61)“HB(I,J) 

jo OET= (ETA3(T,J1-ETA1(I,J11/ABC 

39 ZCO CONTINUE 

90 AH=HF(I,J|+ETA(I,J1 

91 OM(I ,J , 2 J = ( **S 25*uET+0S * t F ( 1 1 + F ( 2 1 l/Bl/AH 

9? 0 M ( 1 ,J , J»=(”S50*DET*BS*(F (1 l/B + F (2 )*F (31/P ll/AH 

9 y OM(I , J , 4 I = t “S75*0E T*OS * t F tl 1 /StF ( 2 1 *F 1 3 1 ♦ F t 91 /81 1 / AH 

4“ '900 CONTINUE 

45 RETUFN 

46 END 
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•8NRTIA FOR CREATED ON 4 DEC 79 AT 09:48140 

C ****** 44* ****************** ******* ***************************** ******* 

C COMPUTE! NONLINEAR TERMS RX/RY AT INTERIOR HALF-GRID U-/V- POINTS 
C ****** *** ****************** ************************************4****** 
SU8RCIJTINE BNRTTAdN t JN,KN,IM,JM,Ul,U2,U3,Vl»V2,V3 t W,0M,ETAl, 
CETA, ETA3,RX,RY,MX , MY , M AR , H , HB , ELE V ,UB ,V0 ,HU ,HV »ME X ,MEY , 

COUMX ,DUMY,DOMS,DX,OY,DS t DT,FCOR,TAUX, TAUY,G,NCASE ,N 9L0K,TT0T,CB» 
DIMENSION U1 (IN. JN.KNl ,U2<IN, JN,KN > ,U 3< IN, JN.KNl, VI (IN, JN.KNl, 
CV2(I6.JN,KN),V3<1N,JN,HN),W<IM,JM,KNI , OM < I M , JM ,KN 1 ,ET A 1 <IM , JM I , 
CETA< 1M,JM),ETA3< IM, Jh) ,RXdN. JN,K N 1 , R Y < IN ,JN, KN) , MX< IN, JN 1 , 

CM Y<I 6, JN), MAR (IN, JN),H<IN,JN) ,HB 1 1 M , JM 1 ,ELE V 1 IN, JN 1 , 

CU6(IF, JM,KN),VB(IM,JM,KN) , HU I IN , JN 1 ,H V 1 1 N», JN1 .MEXIIM, JM», 

CMEYUM.jxi 

K Z-K 6-1 
ABC: CB*OT 
ACE: 10. **< -61 

C*****COMP ITES RX AT INTERIOR U-POINTS***** 

DO 110 I=2,IM 
DO ICO J=1,JM 

1F(MX(I,J) .NE.3J GO TO 100 
AH:KI(I,J1+(ETA1I ,JI*ETA (I-l,JJl/2. 

AH:AF»X1<AH,ACE) 

DET: <ETA2(I,J)-ETA1(I, J)«£T A3 <1-1, Jl-ET Alt 1-1, Jl)/ ABC/2. 

DO 1. 10 K:l ,K2 
0 2-H E<I,J1+ETA(I.J| 

DI=HECI-1, J»*ETA< 1-1, J) 

U? AP 2:(U2(T ,J,K 1 *U2 < 1 * I , J ,K 1 1/2. 

DEAR 1 = <U2< I,J,K)*ll2CI-ltJ,KH/2. 

? HUU r= <02* < OSAR 2**2 )-01*<IJBAR 1**21 1/DX 
FiMYd.J) .EO.ll GO TO 104 

E2:<ETA(I-1 ,JM)«ETA(1 , J* I ) ♦£ T A < I - 1 , J ) *ET A < 1 , J 11/ 4 . 
EI:<ETAII,JMETA<I»J-1J'*ETA<I-1»J“1META<I-1,J>>/4. 

02 = H < I , J ♦ 1 1 ♦E2 
D 1-H < I , J) ♦E 1 
D1 = A FAX 1 <01 , 1. > 

D2=AFAX1 (02,1.) 

UBARJ:(U2<I,J,K )*U2<I, J* 1,K m/2. 

UBAR l:(U2(I,J,K) *U2 <1 , J-l.K ) 1/2. 
VQARZ=<V2(T-lyJM,K)*V2(I,J«l,KII/2. 

VBAR 1 = < V2<I, J,K)4V2d-l, J,K) 1/2. 

DHUV Y:(02*UBAR2*VBAR2-Dl*UBAR 1*VB AR1 1 /DY 
GO TC 106 > 

104 CONTINUE 

E 2: < ETA < I - 1 , J4 1 ) *E T M I , J* 1 » 4 £ T A <1 - 1 , J 1 *ET A < I , J 11 / 4 . 

D2=H (I , J ♦ 1 I *E 2 
0 2 = A FAX 1 <D2, 1. J 

UBAR2 = (U2(I,J»K)*U2Cl»J*l»K))/2. 

VBAR 2:<V2 < 1-1, J*1 ,K > *V 2 1 1 ,J*1,K1 1/2. 

DHUV >:D2*U9 AR2*VB AR 2/D Y 
106 CONT I'SUE 

1 F ( K .EO.ll GO TO 107 

A 3=U «< I , J,K- 1 J* rOM CI,J ,K-1) -»0M< T-1,J,K-11 )/2. 
Ai:U2<I,.j,K4llM<0M(T,J,K-»ll*CM<I-l,J,K*in/2. 

0U0MS:(A3-A1 J/DUMS 

% ■ DUS= (U2 < I ,J,K-1 1 - U2 d » J* K ♦ 1 1 1 /DUMS 
j! GO TC 108 
tC7 A 3:0 . 

Ai’:U2<I, J,K4 U*(omci, J,K ♦ 1 ) 40M < I- 1 , J,K*l»)/2. 

A 1=U 2<I, J,K42J*f OM(I, J,K42)40M< T-l , J,K421 J/2. 

DUOM «:'( 3.*»3-4.*A24Al) /DUMS 

DUS = <7.*U2 d ,J. 1 1 -4 .*U2< I ,J,2 >«U2U.J, 31 1/PUM5 
108 S 1G: -DS*FLP A T < K -1 1 

RX<I ,J,K l:0HUUX40HUVYMAH*0U0MS4(l.4SIGl*DUS*DET 
l 10. CONTINUE 
ICO CONT IMUE 

C * 4*4 44**4*44*4*4*4*4***********4* 

C*****CCMP ITES RY AT INTERIOR V-PO IMT 5****4 
DO 2 CO I : 1 , T M 
DO 2 CO J:2,JM 

IF(MXI,J I ,ri£.31 GO TO 200 

AH:H Vd,J) 4fETA < I ,JI*E TA < I, J-l I J/2. / j' 

AH: /MAX 1 < AH ,ACE > 

OET= <ETA3<T, J) -ETA MI ,4I*ETA3 (1 ,J-1 1 -E T A j d ,J - 1 ) | / ABC / 2. 

B O 2 10 H:i ,k Z 
!2:HE<I,J14ETA<I,J» 

0 1:H f 1 1 , J- 1 ME TACI.J-1 ) 

VPAR 2:<V2< I , J,K 14 V2< I , J4 1,K >)/2* 

VPAP 1=< V2(l4 J,K 14V2I1, J-1.K 1 1/2.* 

OHVV Y: <02* < veAR 2**21-01* < VBAR 1**21 l/DY 


89 


X, 


IFIMMI.JI.CC.il GO TO 204 

E2=IETAII,J1*ETA IIM,JI«CTA(IM,J-ll*ETAII f J-lll/4. 

£1=»ETAI 1, Jl*ETA(I,J-lMETAII-l t J~ll*£TAU-l ,JH/4. 

0 2=H II* 1 , J 1*E 2 

01=H IT, Jl+El 

Dl-AMXlfD 1,1.1 

02=A FAX1 1 02 1 1 . I 

UflAR 2r(U2lI«l,J,K I *U2( IM»J-l,Kll/2. 

UCAR 1=<U2|I,J,K 1*U2|I, J-l.Kl 1/2. 

VRAR <=CV2l IM»J,K I *V2( 1, J.K 11/2. 

V3AR 1= < V2 < I - 1 . J,K I«V2(I,J,K1 1/2. 

DHUV> = l02*UBAR2*VBAR2-Dl*UBAR J*VBAR1 1 /DXi 
GO TC 206 
204 CONTINUE 

E2=CETAI I, JMETA<I«l,JMETA(I*lrJ-ll*ETAII,J-llJ/4. 
02=H IT ♦ 1 » J 1 -*E2 
02 = A XAX1 C02, 1. 1 

UBAR2MU2I I* 1, J.K 1 *U2I 1*1 ,J-1 ,K 1 1/2. 
VfUR;=tV2tIM,J,KMV2II,J,K!l/2 . 

OHUV >=D2*UBAR2*VBAR.?/DX 

206 CONTINUE 
IFIK.EO.il GO TO 207 

A3=V2ll f J t K-ll*IOMII t J,K-ll*OMIT,J-l,K-ll 1/2. 

Al-V <II»J,K*11*I0M|I,J,K*11+0MII,J-1»K*1J 1/2. 

0V0KS=IA3-A1I/0UMS 

OVS = IV2lI,J,K-ll-V2II, J,K*11 l/OUMS 

GO TC 208 

207 A 2=0 . 

A 2 = V 2 I I , J , K ♦ 1 l*fOK(T,J,K+l | ♦ OM ( I ,J-l t K*l 1 1/2. 
Al=V?II,J,K»2l*(0MlI,J,K*21*0MCI,J-l,K*211/2. 
DVCMS=I3.=»A3-4.*A2+#1 1 /OUMS 

DVS= I3.*VZII,J,1I -4.*W2|I, J.21+V2I I, J.311/DUHS 

208 SIG=-ns*FLOATIK-ll 

R YII ,J,K l=DMUVX«DHVVY«AH*'OVOMSM l.«SIGl*0VS*9ET 
210 CONTINUE 
200 CONTINUE 

C* * * * *********** +** + * + *** + + + * 1 , 

RETURN 

END 
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.ABNR3 FOR CREATED ON 6 DEC 19 AT 10:20:22 

C ****** ********* ft*************.********************* ************** ****** 

C AT VELOCITY POINTS ON THE OPEN BOUNDARIES * COMPUTES RX ON Y- 
C BOUNDARY, COMPUTE RY ON X -BOUNDARY: RX C RY ARE NONLINEAR TERMS. 

C TIDE HEIGHT JUST OUTSIDE THE OPEN BOUNDARY MUST BE GIVEN 
C ********* ************************************************************* 
SUBROUTINE ABNR3(IN,JN,KN,IM, JM,Ul,U2,U3,Vl,V2,V3,V,OH,ETAl,ESTf 
CETA, ETA3,RX,RY,MX,MY,MAR,H,HB ,ELE.V,UB.VB,HU ,HV .MEX.MEY , 

CDUMX .DUMY.DUMS ,0X , D V , D S. OT , F COR ,T AUX , f AUY , 0 ,NC ASE .NBLOK . TTOT.CB * 

CT IDE IS, Tl6E2S,TIDE3S,TineiN,TIDE2N,TlDE3N, STAGE, 

CAMPL IT, PH ASE .DPHASE.PERIOD.TSHIFTl' 

DIME AS I ON UHIN.JN.KNI .U2 ( I N. JN ,KU J , U J ( IN . JN,KN > , VI (I N . JN ,KN » , 
CV2(I A.JN.HNI ,V3 TIN, JN.KN) ,W (IM.JM.X'N > ,OM(f M.JH.KN > ,ETAl( IM.JMI , 
CETA( IM.JMI ,ETA3(IM,JM) ,R X (IN , JN ,KN > ,R Y ( IN V JN ,K N > , MX ( I N , JN » , 

CM Y ( I A , JN > , MA R I IN , JN 1 ,H II N , JN > ,HB ( IM , JM 1 ,ELEV ( I N, JN I , 

CUB I I F.JM.KN) ,VE(IM,JH,KN),HU(IN,JNI,HV(IN,JN) .HEX (IM.JMI, 

CHE Y f IM , JM 1 , 

CTIOE INJIMI.TIDEZNIIMJ, T1DE3NCIM7, 

CTIDE 1S(IM1,TIDE2S<I M ),TIDE3SIIM) 

C, SOM ( 5 ) 

KZ=HA-1 
A!?C = CB*0 T 
ACE- 10.**( -6 ) 

DO 11 1=3,15 

TIDE 2N<Il=STAGE*AMPLIT*SINf6.Z8i/PERI00*C ( E5T- TSH IFTJ -PHASE 
C-0PH7SE*II-U11 

11 CONTINUE 

DO 12 1=2,11 

TIDE 2S (I I = STAGE*AMPLIT*SIN (6.283/PERI OD*CIE ST *TSH IFTI 
C-OPHASEMI-111) 

12 CONTINUE 

C*****CCMP ITES RY ON NORTH BOUNDARY OF THE ANCHORAGE***** 

J = 14 

DO ICQ 1=3,15 

AH=HV(I,J1*(TIDE2N(TI*ETA(I, J-lll/2. 

AH :AMAX1 (AH, ACE J 

DET= (TI DE3N( I) -TIDE 1N( II *ETA3(I ,J-1I-ETA1»I ,J-1M /ABC/2. 

DO 5 CO K = 1,KN 

SIG= -0S*FL0AT(K-1 I / 

DET1 : ( TIDE 3M ( I I-TIOEIN(I) 1/ABC 
AH1=AV(I,J1*TIDF2N(T1 
SOM( H1=(SIG/AH1 1*DET1 
SCO CONTINUE 

DO 2 10 K=1 ,KZ > 

D2=HV(I , J ) ♦TIDE2NII 1 
0 1=HE ( I » J-ll *E T A (I , J-l I 
VBAR 2=V2 ( 1 , J ,K » 

VBAR 1 = ( V2(I,J.K MV2CI.J-i,K 1J/2. 

DHVV Y= ( 02* (VBAR2**2 1-01* (VBAR 1**2 M/OY 
D HU V > = □ • 

1F(K .EQ. 1 1 GO TO 207 

A 3 = V 2 ( 1 ,J,K-11*(SOH(K-11*OM(I,J-1,K-11 1/2. 
Al=V2(I,J,K*l»*(S0M(K.I)«0MTI,J-l,K*ll)/2. 

DV0MS=(A3-A1 J/DUMS 

• DVS= IV2I I, J,.K-1 »-V2(l, J,K«1! I/DUMS 
GO TC 208 
2C7 CONTINUE 
A 3=0. 

A2=V2(I,J,K-»l)*CSOM(K,ll.OM(I,J-l,K*lJl/2. 

A1=V Z(I,J,K*21*(S"M(K*21*0M(I,J-l,K«2 ) )/2. 

OVOM I=( 3. » A 3-4 .*A2 *41 ) /BUMS 

DVS= |3.*V2(I ,J,1 ) -4.*V2( I , J , 2 1 ♦ V2 ( I , J , 3 II /DUMS 
208 S IG= -DS*FL0AT(K-1 ) 

R YCI ,J,K 1 = DHUVX*DHVVYSAH*DV0MS*(1.*S1G1*0VS*0ET 
2 1C CONT INUE • 

ilDu CONTINUE 

C*****COMP ITES RY ON SOUTH BOUNDARY OF THE ANCHORAGE***** 

J = 1 

DC 3ft? 1=2,11 

AH=HV(I.JM(TIDF2S(TMETA(.I,J1», 2. 

AH :AMAX1 (AH, ACE 1 

DE f= (TIDE3S(I)-TI0ElS{II*ETA3(I,J)-ETAl(l,J»I/ABC/2. 

DO 6 CO K = 1 ,KN / 

SIG=-0S*FL0AT(K-1 I 
OETI :(T1DE3S (I 1 -T I0E1S ( I H / ABC 
A H 1= FV ( I,J).IICE2S(II 
S0M(R1=(SIG/AH1J*0ET1 
60C CONTINUE 

DO 3 10 K = 1 »K 2 
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v> 

sn 

ei 

32 

a? 

64 

e* 

86 

87 

68 - 

89 

9 r 

91 

92 

93 
9 8 

95 

96 

97 

94 
99 

ICO 

101 

102 


307 


303 

3 111 
300 


D2=HUI,JI«T10E2SII> 

Ol=H8(T,Jl*ETA<I,J» 

VKAR2=V2|I , J ,K ) 

' VBAP l = IVZ(I,J ( KI*V2(I f J*l f KM/2. 

DHWV l=!01*(VBARl*'»2l“0i*tVBAR2**2l >/0Y 
CHUV > = C. 

1FIK .EQ.ll GO 10 107 

A3=V2II,J,K-l>*(SO*(K-l}*OH(I t J f K-l»)/2. 

A 1=V 1(1 ,J,K»U*<SCH(K-» 1) *0M (I , J,K* 111 / 2. 
0V0M<=IA3-All/0UMS 

OWS: «V2 U t J,K-l>-V2(I , 1/DUMS 

GO TC 308 

CONTINUE 

A 3-C . . 

A2=Vlc<I,J,K«l>*(S0M(K«l>»0H(l,J,K* 111/2. 

A1=V2<I t J T K«2l*(SOH(K«2>*OH(I ( JtK*2l)/2. 
DV0f*Sr(3.*A3-4.*A2*Al l/OUPS ; 

D V S - 13. * V 2 JI ,J,1) -«*VZ|I,J,2MV2(1,J,3M/DU*S 
SIG=-OS*FLOAHK 7 U, 5 r 

CONT JniSe » = OMUVX*i»M V y Y * AH*°VOMS-* (l.^SXGl^OVS^OCT 

C Ohl 1NUE 

RETURN 

END 
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.BVELS FOR CREATEO ON *t DEC 79 AT C9:5l:16 

C*********4*************************** ***p,--*$7>*** ********************** 

C COMPUTES U3/V3 AT INTERIOR HALF-GRID U-/;V« POINTS 

C ****** * ** ********** ***************************************** *********** 
SUBROUTINE B VEL S < IN ,JN ,KN ,IM , JM ,U 1 ,U2 ,U 3, V 1 , V 2 ,V 3 ,U ,0M ,ET A 1 , 

CEtA, ETA3,RX,RV ,MX , HY, M AR , H ,HB ,ELE V ,UB ,VP f HU ,HV.MEX,MEY ,CB , 

CDUMX ,DUHY,iUKS,DX,OY,OS,OT,FCOR,TAUX, TAUY.G.NCASE .NflLOK ,TTOT, 

0 IHE A S ION U1 (IN,JN,KN» ,U 2 ( IN , JN ,KN 1 ,U 3( IN , JN , KN 1 , V 1 1 IN , JN.KNI, 
CV2(IA,JN,KN1 ,V31IN,JN,KNJ ,UC IM.JM.KNl ,OM(IM,JM,KNI,ETAlriM t JM», 
CETAC ]M, JMI ,ETA3I IM # JH1 ,RX iIN,.lN,KN I ,fl T { IN , JN ,KN1 , MX I IN , JN1 , 
CMYtIA,JNI t KAR(lN,JNI,HiIN,JNl,HB(IM,JK),ELEV(lN«JNI, 

CUB (I P, JM,HN1,VBUK, JM,KN) ,HU(IN , JN 1 ,HV (IN , JN1 ,MEX(XH,JMI, 

CMEY ( J w , JN ) ' 

KZ=KA-1 
ABC=CB*OT 
ACE = 10, ** l -6 1 

C*****COMPlTES U3 AT INTERIOR U -POINTS***** 

DO ICO 1=2, IK 
ft DO ICO J= 1 , JM 

If(HMI ( J).NE.3> GO TO 100 
AH=Hl(I,J)*(£TA<I,JI*ETA(I-l,J)l/2. 

AH=APAX1(AH,ACE1 

AH1=FU(I,JH{ETA1(I,J)*ETA1 (I-1,J1 1/2. 

AH3 = 6U(I ,J1 ♦(ETA3CI ,J)-»ETA3CI-1,JI 1/2. 

G1=AH/AH3 
62= A F/AH3 

OEF= A9C*AV/(0S**2 1/AH3/AH 
A 1= 1 ./ ( 1 . *OEF I 

DEX= «ETACI,J)-ETA(I-1,J1 1/DX 
AO = G 40EX 
DO 1C1 K =1 ,K Z 

A2 = F COR* I V2(I-1,J*1 ,K HV2(I,J»l,K>»V2(I,J,K)*V2CI-l,J,Kfl/b. 

A5-RX(1»J»K1/AH 

IF CK .EC. 11 GO TO 102 

A6=A\*rU2(I,J l K«ll-Ul(I,J,Kl*U2f I , J ,K - 1 11 / ( AH*OS I **2 
U3(|j.i|ft<l = Al*(Gl*UllI,J,K)*G2*ABC*(A2-AO-A5*A611 

102 CONTINUE 

Ab =2 «*AV*(U2 (I • J,K*1 J-Ul (I , J,K 1 / 2 . «*H * TAUX *DS / AV 1 / < AH*0S1**? 

U 3 ( 1 , J , X > = A1*(G1*U1I1,J,K1«G2*ABC*(A2-A(|-AS*A6 1) 

11 CONTINUE 

JO continue 

c* *** <********>**. **************** 

C*****CCMPlTES V 3 AT INTERIOR V -POI NTS ***** 

00 2 CO 1 = 1, IM 
DO 2 CO J=2,JM 

IF (MV(I,J1.NE.3) GO TO 2QC 
A H=H V 1 1 t J»*<ETAII,Jl*EIA(I,J- 111/2. 

AH = A M X 1 (AH, ACE 1 

AH1=FV(I,JI«(ETA1II,JI«CTA1<I,J-1I 1/2. 
AH3=FV{I,J)*(ETA3(I,JI*ETA3(I,J-lll/2. 

G 1 = A H/AH3 
:G 2 = A F/AH3 

DEF=A9C*AV/(0S**2l/»H3/AH 
A 1 = 1 ./ « 1 .*DEF1 

0 E Y= «ETAtI,J)-ETA(I,J-ll 1 /DY 

B9=G*0tr 

DO 2 Cl K=1 ,K7 

BZ=-FC0RMU2n,J,K 1*02(1*1, J,K >«U2 M« 1 , J-l ,K1 «U2( I, J-l ,K) 1/9. 

B5=Rm,J,K»/Ah 

IF (K .EO.ll GO TO 20? 

6 6 = A V*(V2II,J,K«il-Vll I, J,K!*V2(I,J,K-11I/(AH* OS 1**2 
V 3 ( I ,J,KlrAl*(Gl*Vl(I h J,K l«G2*ABC*(B2-BM-BS*B6 >1 
GO TC 201 - 

202 CONTINUE 

B6=2.*AV*(V2(I,J t K*l>-Wl(I,,),Kl/2.*AH*TAUY*PS/AWl/( AH* DS 1 **2 
W3( I ,J,K ) = A1*(61*V1 II, J.,K )*G2*APC*IP2-B4-B5*B6n 
201 CONTINUE 
2CS CONT 1NUE 
C * * * * « * * 

RETURN 
END 


m 


*********************** 
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( • AS A F 7 FOR CREATED OK 12 DEC 79 AT 13:47s?l 

C ********* ************************************************************* 

C COMPUTES TIDE HEIGHT AT POINTS JUST OUTSIDE OF OPEN BOUNDARIES, THEN 
C COMPUTES THE NORMAL VELOCITIES AT BOUNDARY POINTS. 

C *********************************************************** *********** 

SUBROUTINE ASA F 3 I T N , JN .K N ,IM , JM ,U 1 ,U2 ,U3 , V 1 ,V2 , V 3 ,W ,OM ,E T Al t 
CE TA, ETA3,RX,RY,*'X»HY, MAR.H.HB ,ELEV,UB ,VB,HU ,H V ,M£ X , ME Y ,CL ./ 

COUMX |DUMY « DUHS ,DX , OY , DS , DT , F COR , T AUX , f AUY , G ,NC ASE ,NBLOK,TTOT, 

CT IDE ]S,TIDE2S,TIOE3S,EST,STAGE,AV, 

CT IDE JN, TIDE2N,TIDE3N,AHPL IT .PHASE, DPHASE ,PER IOD » TSH.TFT J 
DIME ASION U1 (IN, JN,KN I ,U2 I IN. JN ,KN » ,U3 (IN. JN.KN I , VI I IN . JN ,KN I , 
CV2II A.JN.KNt ,V3 (I*I,JN,KNI ,W (IM.JM.KN) , OH ( IM , JM ,KN I , ET A I ( IM , JM) , 

CE TAMM, JW1 ,ETA3 IIM, JM) ,R X Cl N , JN ,KN 1 ,R Y ( IN, JN , K M I , MX T I N , JN J , 
CMYIIA.JN !,MAR(IM,JNI,HIIN,JN1 ,HP< IK,JM> ,ELE V ( IV, JN » , 

CU3TI M, JM.KMI , V6 C 1 H , JM , KN 1 ,HU I IN ,JN > ,H V t IN, JN1 ,MEX(1M,JM), 

CMEYT 1M,JMJ , 

CTIDE JN(IM) ,TIDE2NIIMJ ,TI0E3N(IH), 

CTIDE JSriMI,TIOE2S(IMJ,TIDE3STIMI 
KZ=KA-1 
ABC=CB*OT 
DO 1 1 1 = 3, 15 

TIDE INTI )=STARE*AMPLIT*SINI6. 20 7/PCRIOD*T (EST-TSHIFTJ -PHASE 
C-DPHASE+ (I -1 D) 

11 CONTINUE 

DO 12 1=2,11 

TIDE IS«I>=STAGE*AMPLIT*SINC6.28 3/PER10D*»CEST-TSHIFT» 

C-OPH JS£*II-1I1 1 

12 CONTINUE 

C»»***CCMP ITES V ON NORTH BOUND AR Y**v** 

J = l“ 

DO 3 CO 1 = 3,15 

AHl=mi,J>MTIPElN(I) *ETA1TI,J-1» >/Z. 
AH=HV(l,JI*ITI0E2N(II*ETA(I,J-lM/2. 

A H = A ►AXI (AH, 10.** (-61 I 

AH3=FV(I ,J)*CTIDE3NCmETA3(I ,J-1) J/2. 

G'1 = A H/AH3 
G2=A F/AH3 

OEY = ITIDE2N(IJ-ETA<!,J-1)J/0Y 

OEF = ABC*AV/TD$**2 1/ AH 3/ AH 

A 1 = 1 ./II . ♦OEF I 

B4=G«0EY 

DO 3 C 1 K =1 ,KZ 

B2 = C • * 

B5 = R YTI , J,K J /AH 
IF (K .EO. 1 ) GO TC 3C2 

B6 = A V*tV2C I.J.K + 1 I-V1T I, J.K l-»V2f I . J.K-1 n/( AH*0S)**2 
V 3 T I ,J,K >=Al*IGl*VlCI,J f KI-»G2*ABC*(B2-B4-B5«B6)l 
GO TC 301 
3G2 CONTINUE 

66=2 .*AV*TV2 (T , J • K ♦ 1 J-Vl ( I , J . K I / 2 . ♦ AH*T AU Y*PS / AV 1 / 1 AH*OS 1 **2 
V.’l I ,J,K > = Al*(Gl*VlTI t J I K)«G2*APC*IB2-B4-RS«B6)) 

301 CONTINUE 
300 CONTINUE 

C** ***UPGA 1ES TIDE HEIGHT***** 

DO 1=3, 2D 

TIDE JN(I) = TIDE2N«n 

13 T IDE 2N ( I J = TIDE 3N J T J 
C**«**COMP LTES V ON SOUTH BOUNDARY***** 

J=1 

DO ICQ 1=2,11 

A ! Hl=hVCI,JI*«TIDElSm *ETAici*jn/2. 

Ah=H WI,JMUTDE2SIIJ + ETAfI,J))/2. 

AH=A FAX! CAM, 10. **(-61 ) 

AH3=FVf I,jn(TIDE3SCn*ETA3CI,JII/2. 

Gl=AhI/AH3 

G2=AF/AH3 

DEY= TETA(I,J»-TI0E2S(I ll/DY 

OEF=f?C*AV/rDS**2l/»H3/AH . 

A 1=1 ./( 1 .♦OEF) 

B4=C-<D£Y 
DO « C 1 Krl.,KZ 
B 2 = 0 . 

B 5=R X 1 ♦ J,K l/AH 
IF IK .EC. 1 I BO TO 40? 

B6 = AV*(V2II,J,K + 1!-V](I,J,K)*V?I1,J,K-1'!1/(AH*D$I**2 
V3II,J,KI = Al*(Gl*VlH,J t K »♦G2*AP.C*CB2-B4-EiS♦B6 1 1 
GO TT 401 
402 CONTINUE 

B6=2 ,*AV*( V2 II ,J,K*1)-V1II,J,K1 /2 . * AH *T AU Y*DS / AV I / IAH*OS 1**2 


94 




79 V 3 « X ,J,K > = Al*«Gl*Vni, J,K >»G2*A9C* IP2-B4-9S«B6 >1 

8T **01 CONTINUE 

81 ICO CONTINUE 

sr C*****UPUA 1ES TIOE HEIGHT***** 

8 ? 00 1 « 1 = 2,11 

9** TIDE lSm = TinE2S«I I 

as it tide :sm-TioE3sm 

6f RETUPN 

87 END 


t 
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♦FLOUI 1I.6IVCNU SY 

1 c*****SPEC 

2 SUBR 

3 CEST1 

4 0 IME 

5 f T 1 C I 

6 C» Ul ( 

7 K Z-K 

8 DO 1 

9 V3<1 

10 U 3 tl 

11 W 3 ( 1 

1? U 3 11 

1 ? V2I1 

1«* U 3 1 1 

15 100 CONT 

16 RETU 

17 ENO 


t> CREATED ON 14 SEP 79 AT 17:47:43 

1FY VELOCITY AT D I SCH ARGE ,1 NT AKE , AND RIVER HE AO*********. 
CUTINE GIVENUIIN, JN , S N , IM , JM , U 1 , U2 ,U 3 , V 1 , V 2, V 3» U , T2.T3 t 

hSION Vi IIH.JN.KNI ,V2TIN,JN,KN ) .V3IIN, JN,KN», 
f.JM.KNJ ,TZ(IM,JM,KNJ ,T3( IH.JH.KN) 

IN, JN.KN ),U2 t IN,JN,KM),U3(IN, JN.KN » 

A-l 

C n K - 1 ,K 2 

5 » 1 » K >:-10.*C0S(6. 2832/25. 0*(ES T-5 .01) 

6, 1 ,K 1 -10. *C0S(6.2C3Z/?5.0* (EST-5.CII 
M,4 .Kjrs. -2. *C0H6. 23 32/12.5* JEST-7. 625 l» 

*, 3, K I =5. -2. *005(6.28 32 /1 2. 5* (ESI -7. 62511 

4 , a,K)r5. -2. *C0S(6. 2832/12. 5*(EST-7.5 II 

5, a,KI--V3(14«S«K I 
INUE 

EN 
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• CONV FOR CREATED ON 19 DEC 79 AT 10:93:57 

C ** ****** * ************************************************************* 

C COMPUTES TC-THE CONVECTIVE TERMS OF T-EQN, AT T-POINTS. 

C *********<*** ********»*,* a******************************* ** + *****<,**#* + 
SUBPCIJTINE CONV (IN ,dN,KN,IM f dM ,0X ,0V ,DS ,DT ,DUMX ,,0UMY,0UMS , 
CSK,RK,BV t U.2,UB,V2.VB,T2,rc,HB f hU,HV t 0M,ETAl ,E T A,£ TA3, CB ,MEX, 

CME Y , k ,OTZ , TE Q J 

0 THE AS ION U2UN.JN.KNI ,V2dN, JN ,KN ) ,U6 ( IM , JM.KNl t VB(IM 
CT2II 8.JM ,KN> ,HB « IM.JM J ,HU(IN,JN» S HV( IN.dNl ,0M( IM.dM.KNf , 

CE TA1 (IM, JMI ,ETA(Ii t JMI ,ETA3 ( IM, JM 1 , TC ( IM, JH ,KN > , 5 I IM* JM»KN I 
DIME A SI ON MEX(IM, JM 1 ,MEY (IM , JM » ,OTZ dM , JM I 
ABC- C8*0 T 
K2 = KA-1 
HF = S Y t tRRwfl V 1 
DC ICO I - 1 » I M 
00 ICO J=1,JM 

IF(MEX(I, JJ.EO.Ol GO TO 100 
A H“,H B ( I , J 1 *E T A d » d ) 

DET- (ETA3(I, JI-ETAKI , Jl l/ABC 
D R =H l ( I ♦ l , d J ♦ ( E T A (I ♦ 1 * d > ♦ E T Ad , J ) ) / 2 • 

IF(MEX(I,JI.CO.?» 0P=HU(I-»1 v J MET A (I , Jl 
QL = HlfI,d>«(ETAd-l,J)«ETAd,J>l/2. 

IF(MEX(I, dl.EQ.il 0L=HUd »d I «ET A ( I , J J 
02=HKI,ddldETAd,d + 11+ETAII, Jll/2. 

IF(MEY(I,dl.E0.21 02=HV(I, d+1 1+ETA (I , J 1 
Q 1=HV(I,J1*(ETA(I , J-lMfTMI, J) 172. 

IRMEYd, dl.EO.l ) Dl=HVd,dl*ETA(! »J> 

DTZn,J»=-HK9(TE0-T2d,J,ld 

00 1 IC K -1 , K 2 

UR = (12(T«1.,J.K l+U2(I+l,J,K* 11172. 

UL=( 12 (I , J,K 1*U2( I. J t K -*1 1 1/2. 

TR-T 2(1 »d,K ) 

1 F ( M EX ( ltd) .NE.2) TR=( T2d,J,Kl+T2dd,J,K>>/2. 

TL = T 5(1, J, HI 

lF(MEX(I,d).NE.l) TL=(T2d,d,Kld2(I-l,d,K) 1/2. 

DHUT X=(0R*UR*TR-DL*UL*TL1/DX 
VR=( V2(I,d*l ,f< >*V2(I,J+l,Ktll 1/2. 

VL“(V2(Tfd,K)+V2(I,d,K+lll/2. 

TR=T;«I.d,Kl 

IF(MEY(I,dl.NE.2) TR= ( T2 ( I , d , K ) d 2 ( I , d* 1 , K 1 1 / 2 . 

T L -T 2 ( I , d , K 1 

IF (MEYd.dl.NE.il TL-(T2(I,d,K)d2(I,d-l,K J »/?. 

ORVT Y=(02’*VRdR-Dl*V,L*TL»/0Y 
OMR=CMII,d.K> 

0 M L=CM(I,d,K*l ) 

I F ( K .NE.ll TRr(T2(I,d,HTd2d,J,K-ll J/2. 

IF(K.EO.l) TR = I2(I,J,K 1 ♦( DS/ 2 . 1 *0 T Zd ,d 1 
IF(K.NE.KZ) TL=(T2(I,d,K ld2(I,d,Kdl J/2. 

IF1K.EQ.KZ1 TL-T2(I,J r Kl 
OTOM Sr(OMP*TR-OML*TD/DS 
OTS= (TR-TL I /DS 
S IG= -FLCA T (K-l )*DS-0S/2. 

TCd ,d,K »=OHUTX«DHVTY*AH*OTOMS*nET*OTS*Cl .*SIG1 
110 CONT 3NUE 
100 CONT JNUE 
RETURN 
END 




I • TCOMPT FOR CREATED ON 1 APR 80 AT 1^:29:33 

C ****** *** 4 ********************************* **^**** ********* *********** 

C COMPUTES T 3 BY CTCS*OtlFORT -FRANK EL SCHEKE TO INTEGRATE T-EON 

C ********* * **************************************************** ******** 

SUBROUTINE TCOHP T ( I H, JN ,K N , IK , J*. OX .DY , OS.DT , OUMX .CUNY ,OUHS, 
CHB.TC.Tl ,T2, T3 ,FEX,HtY ,E T A , CB , T A I R ,£ T A I ,E T A 3 , DTZ . 8V ,BH , T ABN , T A BS I 
DIME AS ION TC ( IA! » il* 1 1 KN I , T H IP , JM,, K N I * T 2 C IH * JH * K N1 , T3 * IK * JH *KN I « 
CHBU A.J M I ,HEX< I",JK) t ETA (IM.JMJ ,ETA1(IM*JMI ,ETA3(IM,JHJ 
OIHEASION OTZ(IP,JM) f MEYIlM f JH» 

KZ = KA-I 
ABCrCT 

DO ICO I=1,IK 

00 ICO J=I,JH , 

IFtMEXCIrJI.EO.OI GO TO 100 

AH=HEfI,JJ*ETACI,JI 

AH1 = FB(I,J)4ETAMI,J) 

AH3?FG(I«U)+ETA3(TtJ) 

AAC=EV/AH/ (0S**2 J 
ACC=EH*AH 

OEF= 1./ C1.*ABC*BV/AM3/AH/ (DS**2 » ) 

0 EG- I./ t l.*AGC*BV/2./AH3/ AH/ (DS + *2 J ) 

00 2 CO K = 1,KZ 

IF(KEX«I,JJ.E0.3]0 2TX=CT2(I*l,J,K)*T2(I-liJ,K>-2.*T2«I,J f Kn 
C/CDX**2J 

IF«PEX(I t JI.EO.l)02TX=CT2II«l,J t K >-T2(I,J,K )>/(OX**?l 
IF(f!EXCI f JJ .EC.?)02TX=(T2(I-1,.J,K » -T2 ( I , J , K > J / ( DX **2 J 
IF (HEY (I , J> ,EC.3I02TY=(T2 (I,J*1 ,K 1 *T2 (I,J-1,K I -2 . *T2 C T , J,K J > 
C/CDY4*2> 

IFCMEYUf JI.E0.1 ID2TY=CT2(I, J*1 ,K ) *TABS-2. *T2 f I, J,K M/ (DV**2> 

IF (HEY (I ,J>.E0.2J02TY=CT2(I,J-1,KMTABN-2.*T2( I, J , K > J / ( DY**2 1 
IFCK .EC.U GO TO 5C 
IFIK .EO.KZ) GO TO SI 

BARl=T2(I,J f K+U-THI»J,K>*T2CI,J,K-l) 

BAR2 i-TC(I,J,K )4AAC*BAR1*ACC*(D2TX*02TY) 

T 3 ( I » J . K J=DEF*1AH*T21I , J , K > ♦ ABC*B A R2 J / AH 3 
GC TC 200 

50 CONTINUE 

B'ARl:T2(I.J,K*lI-TlfI.J f K)/2.*DS*0TZ(I t JJ 

BAR2:-TC(1,J,KI-»AAC*BAR1*ACC*(02TX-»D2TY> 

T 3(1 ,JtK )=DEG*(AH*T2(I t J t K > ♦ ABC *B A R 2 J /AH3 
GO TC 200 

51 CONTINUE 

BARI =-Tl (I ,J t K)/2.4T2( I,J«K-1) 

B AR2 :-TC (I ,J,K I* A AC*B A R1 ♦ ACC* (D2TX *02 TY J 
T 31 1 ,JfK )=DEG*( AH*T2(I,J,K) *ABC*BAR2I/AH3 
2C0 CONTINUE 
100 CONTINUE 
RETURN 
END 
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.UCAL FOR COEATE0 ON 4 DEC 79 AT 11:35:41 

C********* I************************************************************ 

C CALCULATES ACTUAL VERTICAL VELOCITY U 

C ********* **************** if; ******************************************** 

SUBROUTINE UC AL I I M , JN , KN, IH , JM , U1 , U2 , J3, V 1 , V? , V3 , U ,0M ,ET A 1 , 
CETA,ETA3,RX,RY,NX,MY,MAR,H,HB,tLEV ,UB .VB.HU ,HV .MEX.MEY, 

CD UHX ,OUMY,DUtfS,PX,OY,OS,OT t FCOR,TAUX, 1 AU Y , G ,NC ASE ,NBLOK ,T TOT > 

0 IMf 1SI0N U1 (IN, JN *.KNI ,U2 (IN, JN,KN 1 ,U3 ( IN . JN, KM , VltIN, JN.KNI, 
CV2(I A,JN,KN) ,V3(IN,JN,KN1 ,W(IM, JH.KNl , ON ( I H , J“ ,K N 1 ,ET A1 ( I M , JM 1 , 

CE TA( 1N,JN I ,ETA3(IN,JH) ,RX ( IN , JN ,KN 1 ,R Y ( IN , JN, KN> , MX ( IN,JN 1 , 

CM Y (I I, JN I, MAR (IN, JN1,M(IN,JNI,HB( 1 H , JM ) , ELE V ( I N , JN I , 

CUB (I>,JM,KN1 ,VB(IM,JM,KN1 ,HU ( I N . JN ) ,H V ( IN , JN ) ,KEX{IM,JM1, 
CMEYIJm.JMI , 

KZ=K A-l 

00 .9 CO I = 1,IM 

DO 9 CO J=1,JM 

IF(MEX(I,J> .EO.OJ 60 TO 9C0 
0 ET - (ETA3(I.Jl-ETA'l(l,Jl I / 2 ./OT 
AH=H8(I,J1*£TACI,J1 
IF(N£X(I,J 1.E0.31 GO TO 15 
IFCMEXCI, JI.EC.ll GO TO 1 
IF(NEX(I,J).E0.2) GO TO 2 

15 CONT 1NUE 

DEx = (ETA ( 1 * 1 ,Jl-ETA(I-l,Jl l/OUMX 

DAHX = (HB(I*1,JI*ETA(IM,J1-HB(I-1 ,J1-ETA(I-1,JI l/OUMX 
GO TC 3 

1 DEX= IETA(I*l t JI-ETA(I,Jl)/DX 
E2=(ETA( I*l,Jl*ETA(I.Jll/2. 

E1=ETACI*1,J1-1.5*(E1a (I* 1,J1-ETA(I,J11 
DAMX = (HIHI + lt J1*E 2-HUI I,J l-Ell/OX 

GO TC 3 

2 OEX- (ETA(I , J.l -E T A (1-1, J) l/OX 

E2=E1A( 1-1, J1*1.5*(FTA(I,J1-ETA(I-1,J11 
EI=(ETA(T-1, JI*ET A(I,J>>/2. 

OAHX :(HU(I, JI*E2-HU(I-l,Jl-n 1/OX 
GO TC 3 

3 CONTINUE 

J IF(MEY(I,Jl.E0.3l GO TO 16 
IF(MEY(I, Jl.EO.il GO TO 4 
1F(MEY(I,J!.E0.21 GO TO 5 

16 CONTINUE 

OEY= (ETA (I ,J*1 1-ETA (I, J-l 1 1/OUHY 

0AHY:(H8 (I ,J*ll*ETA(,I f J*11-HB(1,J1 -ETAlI.J) l/DUMY 
GO TC 6 

4 OEY= (ETA(l,J + ll-ETA(l,Jl 1/DY 
E2=( ETA(I,J*ll+ETA(T,Jll/2. 

E1=E 1A(I,J*11-1.5*(ETA(I,J*11-ETA(I,JI) 

0AHYr(HV(I,J*ll+E2-HV( I* JI-E11/9Y 
GO TC 6 

5 OEY= (ETA (I , J 1 - ET A (I, J-l I 1/QY 
E2=ETA(I,J-1)*1.S+(ETA(I,J)-ETA(I,J-111 
£ 1 - ( ETA( I.J-ll+ET A(T*J 11/2. 

0 AHY=(HV (I , J 1 +E 2-HV ( I , J-l 1 -E 1 1 /OY 
GO TC 6 

6 CONTINUE 

00 4 *4 K = 1 ,K2 

W(I,.,KI~OM(I,J,K 1 *4H-FL0 AT ( K - 1 ) *0 S* ( OLT «UB ( I , J, K 1 *0A H X * VB ( I , J ,K 1 * 
COAHV ) + OET*UB(I,J,Kl*OEX*VB(l,J,Kl*GEt 
444 CONT l'JUE 
9CC CONT INUE 

RETURN . • 

END 


100 




l.ANCPR FOR CREATED on 3 DEC 79 AT 20j16:46 

1C ********* 4* ****************************************************** ****i:« 
C PRINTS ETA, RESULTANT VELOCITY, AND T AT 4 FIXFD LOCATIONS CONTTNU- 
;C OUSLY, THUS SHOWS THE FLOW AND TEMPERATURE DEVELOPMENT AT THESE PTS. 

C ****** *** 4* *************************.«***** •*•**•*»* ******************* 

SUBRCUTINE 4NCPR(IM,JM,KN,UB,VB,E,TT0T,R,TH.T2) 

DIME A SION U8(IM,UH,KN) ,V8(IM, JM ,KN ) , E ( I M , JK ) , T 2 ( IM , JN,KN) 

8 557 ,3 
:U6 16,1,1) 

V=VB (6,1,1) 

X1=S CRT (U*.*2*V**2) 

CALL ZZ1(U,V,2EP) 

2 UO * ( TH+7ED ) 

IFtZl.LT.O.) Z1=Z1«360. 

SUE (6,1) 

TM1=T2(6,1.1 ) 

V = UB (12,4,1) 

=VB 112,4,1) 

X2=SCRT(U**2*V**2) 

CALL ZZ1(U,V,7ED) 

7 2-Q < ( TH*ZED ) 

IF(22.LT *0, ) 72=ZZ-*360. 

S2=E(12,4) 

T M2- 12(12,4,1) 

U = UB (8,12,1) 

V=VB(B.12,1) 

X3=SCPT(U*<2«V**2) 

CALL 721 (U,V ,2ED ) 

Z350*(TH*i , ED> 

IF«z:.LT.O.) 2352 3* 360 . 

S35E (4,12) 

TH3=T2(8,12,1) 

U5UB (14,9,1) 

V5VB (14,9,1) 

X4=SCRT(U*«2«V**2> 

CALL 22 1(U,V,ZED) 

2450 <(TH*ZEO) 

IF(24.LT.C.) Z 4 52 4 •* 360 . 

S4zE (14,9) 

TM45T2(14,9,1) 

WRITE(6,1) TT0T,Sl,Xl,Zl,TMl,S2,X2,Z2,TM2,S3,X3 t Z3,TM3, 

CS4.X 4,24,TN4 

1 FORM ATI 1X,F7.0,2F6.1,F5.0,3F6.1,F5.D,5F6.1 ,F5.C,F6.1, 

C2F6. 1,F5.C,F6.I) t 
RE TUAN 
ENO 
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• TPRLOK FOR CREATED ON 9 DEC 79 A 7 11 : 31:16 

C** ******* ************************************************************* 
C PRINTS CUT HOURLY RESULTS OF H 0 RI 20 NTAL RESULTANT VEL, M-VCL* ANO T 
C AT 4 LEVELS, AND THE SURFACE ELEVATION ETA 

C ********* 4*** ********************************************************* 
SCBPCUTINE TPRLOK ( I M , JA. , KN , 1 M , JM , U 1 ,U 2 ,U 3 , V 1 , V 2 , V 3 , V , 0 M ,E T A 1 , 
CETA, ETA 3 ,RX,RY,f'X,HY,HARoH t HB,ELEV,UB,Ve,HU,HV f MEX,MEY ,T 2 , 

CDUMX vOUMY,OUMS,PX,DY 1 DS f OT,FCCR,TAUX,TAUY»G,NCASE,NOLOK,TTOT, 
CKVEL ,XTEMP,VR,ANG, THETA) 

DIME AS I ON U 1 (IN,JN,KN> ,U 2 (IN , JN ,KN » ,U 3 ( IN , JN,KN I , VI (IN . JN ,KN » . 
CV 2 (I A,JN,KN) ,V 3 <IN,JN,KNt ,Wf IM,JM,KN) , OM t I M , J* ,KN > , ET A 1 1 IH , JN) , 
CETAC 1 M,JM 1 ,ETA 3 (IM,JM| .RXIIN.JN.KN 1 ,R Y ( IN , JN ,KN) , HXtIN , JN ) , 
CMY(IA,JN),MAP« IN,JN»,HIIN,JNI ,HB«IM,JM) f ELEVCIN,JN», 

CU 91 I A»JM,KN) ,VB(IM,JM,KNI , HU ( IN , JN » ,H V ( INi JN 1 ,MEX(IH, JMI, 

CH E Y ( IM , JM ) 

DIME AS ION VR(JM), ANG{JH!,TZ(IM,JM,KM) 

K PRO F -0 
00 = 51.3 
' K 2 =KA -1 

I F IK VEL . EO .0 > GO TO 88 
IFtKlV.EO.O) GO TO 200 
00 2 K= 1 ,K? 

VRITE( 6 , 5 CC) K 
DO 3 1 = 1 , IM 

WRITE ( 6 , SOU I, (U<MI,J,K I ,J = 1 ,JM 1 
3 WRITE( 6 , 5 Q 2 > I VB < I , J, K 1 , J=l , JMI 
2 CONTINUE 
200 CONTINUE 

00 1 1 K =1 ,KZ 
WRITEtt, 7 C 01 K 
00 12 1 = 1 , IM 
00 1 J= 1 ,JM 
VfMJ 1=10 .**9 
1 A NO ( . ) = 1 0. **9 
DO 1 2 J= 1 , JM 

IFIMEXtI.JI.EO.O) GO TO 13 
U =UB (I, J,K ) 

V = V 8 «I , J,K I 

VR< J J=SCRT <U** 2 «V** 2 ) 

CALL 22 1 ( U • V , ZED I 
A MG I . 1 = 00 * i THETA* 2 E 01 

“ ~ ANGjjl= 36 Q.*ANG( J J 


IF(AAG<J).LT.O. 

13 CONTINUE 

WHITE f6 ,701 J I , (VRtJ) ,J=1,JM) 

WRIT E(6,702) ( ANG I J I , J = 1 , JM J 
12 CONTINUE 
11 CONTINUE 
00 9 K = 1 ,K 2 
WRITET6.5C3I K 
DO 5 1=1, IM 

5 WRIT F (6,509) I , <W C I , J, K ) , J= l , JM I 
9 CONTINUE 
W El T F (6,505 1 
■DO 6 1= 1, IM 

0 WRIT Ft6,SC5) I , ( E T A ( I . J1 , J= 1 , JM I 
IFtKFROF.EO.O) GO TO 1 00 
WRITE (6, 5 08 I 
DO 1C J= 1 , JM 
WRITEt6,6C9) J 
DO 1C K = 1 , K 2 

WRIT EC6 ,507 J K , t UB 1 1 , J ,K ) , I = 1 ,1 M » 
10 CONTINUE 

WRITEt6,5Q9) 

00 2 C 1 = 1, TM 
WRITE(6,6C1) I 
CO 2 C K'd.HZ 

WRIT E(6 ,507) K,(VBt T ,J,K),J = l,JM) 
20 CONTINUE 

ICG CONTINUE 
68 CONTINUE 

I F t K 1EMP.E0.0J GO TO 89 
DO 3 1 K =1 , K N 
WRITE(6,5S0> K 

5 50 FCRMATl IX, •TEMPFRATIIRES, DEG C. 

CO 32 1 = 1, TM 


K = ’ ,■ 1 9 ) 


IF(K.EO.l) WEI TE t 6 ,55 2 ) I , t T2 1 1 , J ,K I , J= 1 , JM ) 
IFtK.OT.l) WRITE(6,5S1) I , ( T2 < 1 , J , K I , J= 1 , JM I 
32 CONTINUE 
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7« 

SC 

81 
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87 
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552 
55 1 
31 
89 
500 
5C1 

502 

503 
509 
5C5 
506 
SC 7 

508 

509 
6 CO 

t»J 

700 

701 

702 


F CRM 7 T< 1 X » 
FORM ATC IX, 
CJONT 1NUE 
C'G N T INUE 
FORM AT ( IX, 
F CRM A T t IX, 
FORMATC IX, 
F ORM AT ( 1HC 
F ORM AT (IX, 
FCRHAU1X, 
F ORM AT t IX , 
FORMAT! IX, 
FORM AT! IX, 
FORMjtniX, 
F ORM A T ! * 1 • 
FORMATC JHg 
FORMATC 1HC 
F0RHATC1X, 
F ORM ATC 1 X, 
F ORM IT ( I X , 
RETUSN 
E NO 


*I-*,I9»* TEMP=*,I9F7.2// J 

•ir’,19,’ T£MP=’, 15F7.21 


K - * » 19/ 1 


K=*,I9/1 


•U,V VELOCITIES, CM/SEC, 

• T s* ,19,* U=»,15F7.1! 

8X » * V- * , 15F7 • 1/ I 

• *K VELOCITIES, Cm/SEC, 

’ I-* » 19 » • U=’,!5F7.9t 

•SURFACE ELEVATIONS, FTA, CM*/! 

•I- • ,19 , • ETA=*, 19F7.1//1 

•Kr* , 19 . 15F8 ,1 > 

•VERTICAL PROFILES OF U VELOCITIES’! 
•VERTICAL PROFILES OF V VELOCITIES*! 
I 


•resultant velocities AND DIRS, 
* I -• , 1 9 » • VRES = • , 15F7. 1 > 

12X, 15F 7,0/1 


K = < 



,19/1 
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*F|.OW( ll.STORET FOR CREATED OR 1 DEC 79 AT llr22:3b 
1 
? 

3 

4 

5 

6 
7 


C STORES FOURLY RESULT ONTO TAPE FOR LATER RUN OR PLOTTING 

C ********* 4*** ********************************************************* 
SUBROUTINE S TORE T l IN , JN ,KN ,IM , JM ,U 1 ,U2 , V 1 , V?,W ,ET A 1 ,T 1 ,T2 , TP, , 

CETA, FX,WY,MAR, H,H9,l'B, VB , HU , H V , MEX ,ME Y ,NC A SE , NBLOK , TTO T,OT , 

CTIOE IN, T IGE 2N, T I0E3N, T IDE IS, TIOE2S.T1QE3S, STAGE, EST, 

CAKPL ]T,PHASE,nPHASE,PERIOOI 

S DIMENSION U1 (IN,JN,KN1 ,U2 1 IN , JN ,K N 1 , V 1 l IN , JN, KNI , V2 ( IN , JN , KN I , - 

4 CW lIM,JM,KN),ETAl(IM f JHl,ETA(IM,JM I ,MXIIN, JM , M “ ( | N , JN 1,M AR 1 IN , JN I , 

10 CHTIN ,JNI ,HB(IV,JM>,UB(1M,JK,KN) ,VB(IM,JM,KNI, 

11 CHUll F, JNl ,HVIIN,JNI ,MEX( IM, JM I.MEY (IM, JMI .TBl IM.JH.KNT 

12 DIMENSION Tl<IM f JM,KNl f TI0ElN(l“l,TIDE2N<‘|HI,TI0E3NlIMI 

12 DIMENSION T2 1 1 M , JM ,KN 1 .TIDE 1 S 1 IV 1 , TIDE2S C IM I « TI0E3S TIM I 

14 NBLOF-NBLOK*! 

15 WRITE (SI NBLOK 

IF WRITE (81 (1 (U1‘(I ,J,K I ,K=I,KN1 , J=1,JN»,I=1, INI , 

17 Cl (lUZl I,J,KI ,K=1 ,KNI,J=1, JN 1,1 = 1, INI, 

1« C C C « V 1(I,J,K1 ,K = 1, KNI, J = 1,JN 1,1 = 1 ,IM , 

14 C( t(VZU,J,Kl,K = l,KM,J = l,JNl,I = l,IM, 

20 C( (MAF1I,J1,J=1, JNl,I=l,INI, 

21 C( (MX (I, Jl, J=l, JNI ,1 = 1, INI » 

22 C( (MY (T, J1,J=1,JN1 ,1=1, INI , 

23 Cl (HU (T, Jl, J=l, JNI ,1 = 1 ,IN1 , 

24 Cl IHV (IfJI,J=l,JNl , I - 1 , IN ) , 

25 C1IHI lfJlfJ=I,JNIfI = l,lM 

2t WRITE (81 1(1 U(I,J,K1 , K = 1 ,KN > , J= 1 , JH 1 , 1 = 1 , IM l , 

27 Cl((UF(I,J,K> t K=l t KNI,J=l,JMl,I=l,IMl, 

2P CU(VEH,J,Kl ,K = l.KN»,J=l.JM>,I = l , 1M1, 

2« Cl (IT 1(1, J,K1 ,K=1,KN>, J=1,JKI ,1 = 1 ,IM», 

30 Cl((T2(I,J t K>,K=l t KNl,J = l,JMI,I = l,IM.I, 

31 C(l(TElI,J,K>,K=l,KNI,J=l,JMI,I=l,IM), 

3? Cl IETA1<T,JI,J=1,J“I,I=1,IM), 

33 CHET<lI t JI,J = l,JMl,T=l,IMI f 

34 Cl (ME XII ,J1 ,J = l , JM I ,1=1 ,IN1 , 

34 Cl (HEY(I,JI,J=1,JM1,I=1,IMI, 

26 Cl 1HB (I,J1 ,J=1,JMI ,1=1, IMl , 

37 Cl T1DE1N1II ,I=1,IMI, 

3 9 C1T10E2N1I) ,I = 1,IH1 , 

39 Cl TIDF3N(II,r=i,IHl, 

40 CtTIDElS(II,r=l,IMl, 

41 Cl TIDE2S(II,I = l t IMI , 

42 C( TIDE3S1II ,1 = 1, IM) ' 

43 WRITE (81 TTOT.NCASE.OT, STAGE, EST, AMPLIT, PHASE, OPHASE, 

44 ' CPERICO 

4E END FILE 8 

46 URlTElb,1121 7T0T,NCASE, NBLOK 

47 112 F0RMAT11X,»0ATA RECORDED ON TAPE, T TOT = * ,F10 .0 , 

44 C ' CASE NBP=* , 15 1 * BLOK NBR=»,I5I 

49 RETURN 

SC END 


! 'It, 


k 

X. 




V 
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SC-’IVJItUM 1 


•FLOUU) 

1 


10 


.ZZ1 FOR CFEATED ON «t DEC 79 AT 11:39:05 
C*****OETE FHINES THE ANGLE OF RESULTANT VELOCITY 
SUBRCUTINE ZZUU.V.ZED) 

IF (A FS( V I .LT..00U1 ) GO TO 10 
ZED=ATAN2(U,V» 

GO TC 100 
10 CONTINUE 

IFtU.GT.O.) ZE 0:1.571 
1FIU.LE.0.I ZE0:**.713 
100 RETUFN 
END 


105 


• FtOU ( 1 > • AKA TN ST4 CREATED ON 
1 


10 

1, 1,1,1 ,1, 

11 

1 , 1 , 1 , 1 , 1 , 

1? 

1 , 1 , 1 , 1 , 1 , 

13 

0,0, 1,1,1, 

14 

1,1, 1,1,1, 

15 

1,1, 1,1,0, 

16. 

1.1. 1.0 .0, 

17 

0.0, C.Q ,0. 

IF; 

1.0, 1.0,1. 

1«! 

12. ,11. ,6. 

2C 

8 .0 , 8 .C ,9. 

21 

10, ,8.0 ,8. 

22 

9.0, 9.0 ,8. 

23 

7.0l7.U,7. 

24 

5.0, 5.0,5. 

25 

3.0,4 .0 ,3. 

26 

2.0, 3.0,2. 

27 

2 .0 ,2.0,1. 

2? 

1.0, 1.0,1. 

24 

u«(i ,C.G ,3. 

3C 

1.0, 3.0 ,3. 


2. D, 3.0 ,3. 

5? 

3 .0,2. 0,1. 

33 

0,0, 0,1,1, 

34 

1,1 ,1,3,3, 

35 

3.3, 3,3,3, 

36 

3,3, 3,3,3, 

37 

3, 3, 3, 3, 3, 

38 

3, 3, 3, 3, 3, 

30 

3, 3, 3, 3, 3, 

40 

3, 3, 3, 3, 3, 

41 

3,3, 3,3,3, 

42 

3,3, 3,3,3, 

43 

2, 2, 2, 3, 3, 

U« 

0,0, 0,3, 2, 

45 

0,0, 1,2 ,0, 

46 

1,1, 2, 0,0, 

47 

2, 2, C, 0,0, 

48 

0,0,0, 1 ,2, 

4" 

1,3, 3, 3, 3, 

50 

1,3, 3, 3, 3, 

51 

1,3,3, 3, 3, 

5? 

1,3, 3, 3, 3, 

53 

1 ,3, 3,3,3, 

CO 

1,3, 3,3,3, 

55 

1,3, 3,3,3, 

56 

1,3, 3, 3, 3, 

57 

1,3. 3, 3, 3, 

58 

1.3, 3, 3, 3, 

e c 

C » 0,0,1 ,3, 

6:0 

0 ,0 , 1 ,2 ,C , 

61 

1,3, 2, 0,0, 

62 

1,2,G,C,Ct 

67 

C ,0 , G , 1 ,1, 

64 

1.1, 1,3,3, 

65 

3, 3, 3, 3, 3. 

66 

3, 2, 3, 3, 2, 

67 

3, 3, 3, 3, 3, 

ft? 

3, 3, 3, 3, 3, 

fto 

3, 3, 3, 3 , 3, 

70 

3. 3, 3, 3, 3, 

71 

3,3, 3,3,3, 

7 2 

3 , 3 , 3 , 3 , 2 , 

7? 

3, 3.3, 3, 3, 

7" 

2, 2, 2, 3, 3, 

76 

0,0, 1,3,2, 

n 

1,1, 3, 2 ,0, 

77 

3, 3, 2, 0»C» 

78 

2 ,2 , 0 , 0 ,0 , 


0» 0,1 «lt I«1|0|Q|1|1 
1,1,1 ,1, 1,1,1, 1,1,1 
It, 1,1,1, 1,1, 1,1, 1,1 
1, 1,1,1, 1,1, 1,1, 1,1 

11. 1.1.1, 1,1, 1,1, 1,1 

1.1. 1.1, 1,1, 1,1, 1,1 
1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1,1 


, 1 , 1 , 1 , 1,1 


:,3, 3, 3, 3, 3 

1. 3. 3. 3. 3. 3 
',3,3,3, 3,3 

3.3. 3. 3. 3. 3 
3, 3, 3, 3, 3, 3 


3, 3, 3, 3, 3, 3 


!, 3, 3, 3,3, 3 


',3,3,3, 3,3 
',3, 3, 3, 3, 3 
!, 3, 3, 3, 3,3 


3, 3, 3,3, 3 
,5, 3, 3, 3, 3 


25 APR 
,1,0, U 
.1,0,0 
,1,1.1 
,1,1,1 
,1,1,1 
,1,1,1 

’l’l'i 

,1,1,1 
•1,1,1 
V 1 f 1 » 1 

9 X till 

fit lfl 
•1.1.1 
• 0 • 0 • 0 1 

• 0 1 1 »Q v 

• C . 5 *0 f 

•Ct 8«U 9 

»G f 9 * 0 f 

• g.9.o f 

• 0 • 8 «Q f 

• Of 5 « 0 f 

• 0 • 2 «0 9 

• C 9 4 • 0 f 

• 0 • 2 • 0 9 

• Of 2.0, 

• G • 1 .0 , 
-•O.l.Of 

• 0 f C .0 f 

• 0 9 0 .0 9 

• cuo 

:?:? 

,3,3 

' I f 3 

A:l 

• 3 1 3 
.3,3 
,3,3 
,3,3 

:S:i 

,c,c 

:i;l 

.3,2 

*3,2 

* 3*2 

’ 3 3 1 
’ 3 ? 2 
T 3 * 2 

,0,0 

,0,0 

,1,1 

,3,3 

,3,3 

,3,3 

,3,3 

:I:I 

,3,3 

,3,3 

,3,3 

,2,2 


79 AT 10:28:45 


0 . 0 , 0,0 
1 . 0 , 1 .0 

5. 0. 3.0 

8 . 0 . 6 » 0 

9.0 ,8.0 

8 . 0 , £ . 0 
£.0,9.0 
9. 0 , 8 . C 

7. 0. 8.0 

6. 0. 8.0 

5.0. 7 . C 

2 . 0 . 6 . 0 
2.Q.3.E 
2 . 0 , 6 .0 
b.a,2.o 
0 . 0 , 1.0 


, 1 . 0,1 
,1.0,1 
, 2 . 0,2 
,3.0,3 
• 6.0,4 
,7.0,6 
,8.0,7 
,8.0,7 
,8.0,7 
,8.0,7 
,7.0,7 
,7.0,7 
,6.0,5 
,3.0,3 
,2.0,3 
, 1 . 0,2 


. 0 , 1.0 
. 0 , 1.0 
. 0 , 2.0 
.0,4.0 
. 0 , 6.0 
.0,7.0 
.0,7.0 
.0,7.0 
.0,7.0 
.0,7.0 
.0,7.0 
• 0 , 6.0 
.0,5.0 
.0,4.0 
• 0,4.0 
. 0 , 2.0 


,0.0, c.c 
,0.0, 0.0 
,2 .0,4.0 
,5. 0,7.0 
,7 .0 ,8.0 
,8 .0,9.0 
,8 .0,9.0 
,7 .0,8.0 
,7 .0 ,8.0 
,7 .0,8.0 
,7. 0,7.0 
,7 .0,6.0 
,5 .0 ,5.0 
,4. 0,4.0 
,4 .0,3.0 
,2. 0,2.0 
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o 



si 









• FLOW ( 1 1 > C2O07 5 YM CREATED ON 20 JUN SO AT 11:13:26 

1. . 82.357. 6. 90.G,.0S,26.6 
,.76,3 57. 6, 90.0,. 20, 26. 7 

’,.74,4 91 .7,110., .30,26.8 
V,. 70,561.1,110. ,.30, 26. 9 
(,.66,9 97.0,110. ,.40, 27.0 

1. . 62. 3 57. 6. 110. ..40. 27.0 

1.. 59. 3 57. 6, 90.0,. 60, 27.0 
,, .56,402.3,90.0, .50,27.0 
,,.5 7,402.3,1 10.,. 55, 27.0 

1.. 5 7. 402.3.1 00... 40. 27.1 

1.. 5 6.402.3, ICO.,. 30, 27. 2 

1.. 5 5. 3 12.9, 110.,. 20, 27.1 

1.. 53. 3 12.9,90.0, .15, 27.0 
!,. 50, 2 23. 5, 90.0,. 05, 27.0 

5. 4 9. 2 23. 5. 90.0. . 00.27.0 
i ,.48,2 23. 5,90,0, .00 ,27.0 


t 

25.0 

2 

26.1 

t 

27.2 

it 

28.8 

c 

29.8 

6 

29.4 

7 

30.0 

f 

JO. 6 

o 

30.6 

10 

30. C 

11 

30.0 

12 

29.4 

13 

28.8 

14 

28.0 

It 

27.2 

16 

26.8 
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•no* ti i« hu at a s 

1 2T*C t 77. 

2 it?* Lf 21 < 

5 2 •' m C • £ 7 • 

9 27 • Ly 27 • 

6 27 • b v 2 7 • 

6 i? • Lf Ic7 » 

7 27 # C * 27 • 

6 2 « • G • 2 7 • 

9 2 7 • C « 2 7 s 

1C 27 • C*2 7 • 

11 47.0,27* 

i 4 «t 7 « C • 2 7 • 

U 27 § (if 27 1 


YH CiUMCD 
G 9 2 7 « G 9 2 7 9 v 
C 9 27 9 C 9 1 7 « C 
0,27.0, 27 .C 
Gf 27 . G« 27 «L 
U, 27 . C, 4 7. E 
C, *7.C,c7.l 
□ 9 27 # U f 27 .C 

Gt27«U # 27«L 

G 9 2 7 9 C 9 2 7 9 C 
U » 2 7 9 Of 2 7 9 C 
U , 2 7 9 0, 27 .C 


17 MfcY 

7.0. 27. 

1.0. 27. 

7 . 0 . 27 . 
7 . n,?7. 
7.C,?7. 
7.0,27. 

7.0. 27. 

7.0. Z7. 

7.0. 27. 

7.0. 2. 7. 

7.0. 27. 


w,27.C 
0,27.0 
t.,27.0 
1,27. C 
1,27.0 
•J. 27 . U 
0,27.0 
0.27 . C 
0,27.0 
0,27.0 
0.27 .0 


,27.0,27. 
,27.0,27. 
,27.0 ,27. 
, 27.0,27. 
,27.3,27. 
,27.3,?b. 
,27.3,28. 
,27.1,27. 
,27.0,27. 
.27.0,27. 

*1 1 n ■ ■» 


0,27.0,27, 
0,27.0,27. 
0,27.8 ,27. 

5. 27. 1 .27. 

6.27.0. 27. 
0,27.0,27. 

2.29.0. 29. 
6,2P.2,?9. 

8.27.7.28, 

492796f284 





1*F LOW 1 1 I .EGA, A SYH C.iEATGO Oil 

1 l 7. 0,27, 0,27.0, 27.0,27 

2 27.0,27.0,27.0,27.0,27 

3 27.0,27.0,27.0,27.0,27 

** 27.C,?7<U,27,C,<.7,J,<.7 

5 27.0,27.0,27.0,27.0,27 

t 27.0,27.0,27.0,27.3,27 

7 27.0,27.0,27.0,27,0,27 

6 ^7.0,27.0,27.0,27.0,27 

? 27. U, 27. 0,27 .0,27. 0,2 7 

1C 27. 0, 27. U, 27.0,27. 0,27 

11 27.1,27.0,27.0,27.0,27 

12 27. 0,27, 0,27. 0,27. 0,27 

13 27.0,27.0, 27.0, 27.0,27 


18 JAN 

.0,27. 

.0,27. 

.T,27. 

.0,27. 

.0,27. 

.n,27. 

.0,27. 

.0,27. 

.0,27. 

.0,27. 

.0,27. 

,0,77. 

.0,27. 


BO *T 
0,2 7.0' 
0,27.0 
0,27.0 
0,27.0 
0,27.0 
0,27.0 
3,27. C 
0,27. C 
0,27.0 
0,27.0 
0,27. 0 
0,27.0 
0,27.0 


13:10:50 
',2 7.0 ,2 7 . 
,,7.3,27. 
,27.0,27 , 
,2 t . C , i.* 7 . 

T r. ; *» 


,4 I.U., I . 

,2 7.0 ,2 7 . 
,27.0,27. 
,27.0,27. 
,27.3)2 7. 
,27. ',27. 


0, 2 7 . U , 
0,27 .0 i 
0,27.1 , 
C , 2 7 . A ( 
2,27.9 i 
1,27.8 , 

1,27*7. 

9,,7,t , 
, , 2 7 . !> ( 
0,27,2 . 
U, 2 7 < G i 


.0,27. 
. j , 2 7 . 
.1,27, 
.5,27. 
.3,27. 
•7,20. 
• 7,2b. 
.6 ,29. 
.5,29. 
. G ,28. 
.3,27. 
.0,27. 
.0,27. 


0,27.0, 

0,27.0, 

0,27.0, 

6,27,5, 

9.27.0, 

7.27.0, 

9.29.0, 

1.29.3, 
2,29,41 
7,28.8, 

8.29.3, 

4 . 27 . 4 , 
0 , 27 , 2 , 


! 






*F LOW < 1 ) .ID AT A S tTM CtUATOD ( 
1 27. C, 27. 0,27.0,27.0, 

c 27. 0,27.0, .7.0,27.0, 

3 .0,27. u,. 7.0, 27.0, 

4 27.0, 27.0,27. O', .7.0, 

5 27.0,27.0,27.0,27.0, 

t 27. U,27 .O f Z7.li t 27.3, 

7 27.0,27.t’«27.C,27.Qi 

8 27. 0,27.0,27. 0,27.0, 

9 ^7.tf4l7.i3f£tiU|i:?.U| 

10 27«C»27»U, 27.0, 27.0, 

1] 2 7.L, 27.0,27.0, <:/.3< 

12 2 7 . li| 2 7 • il 1 2 7 « 0? 2 7 .0 i 

13 2 7 • U , 2 7 • G , 1 7 • 0 , 2 7 • 0 , 


18 V 

. 0 , 2 /. 
.0,27. 
. 2,27, 
.3,27. 
i 2,27. 
• 2 , 2 7 • 
i C , 2 7 • 
.0,27. 
.0,27. 
» C , 2 7 . 
.0,27. 


79 AT 13 
0,27.0,27 

ri r. 1 n . •? 1 


6. . 7. 9. .6 
5,26.1 ,2(1 

3.22. 0 . 2 d 
0,27. 3,26 


s 5 B s 3 7 
. 0 . £. 7 • 
.3.27. 

• 2 ,27 « 
. 5 , l 7 . 
.5,2 7. 
. 3 , 2 £ . 

• 4 • 2 £ « 
.5,29. 
. i ,2 6 • 
.3,2 6. 
.0,27. 
.0,27. 
.3,27. 


0,27.0 , 
L , 2 7 « 0 i 
L , l 7 . 0 i 
.1,27.4, 

6.27.7 , 
w , 2 3 « . i 

1.28.7, 
0,29.4 , 
6,29.3, 
0,23.5 , 


1 . 0 . 27 . 

1.0. 27. 

1 . 0 . 27 . 

1.5.27, 

1.6.27, 

1.6.27. 
1.5,29. 

1.0. 30. 
*.7,29. 
i . 4 , 2 E « 
1.6 ,27. 

1.3.27. 
1 • C , 2 7. 


0,27.0, 
0,27 . 0 , 
6 ,27.6 , 

7.27.0, 
0,27.0, 
0,27.0, 
0,30.2, 
1,30.2, 
2,28 .5, 

2.28.0, 
C . 1 7 . U . 



c 

7 

8 
9 

10 

11 

12 

12 


L 7 . „ , ? i .3,27.0,17. 
17 i u t i! 7 .3,47.0,47 * 

27.0. 2 7,0. 2 7, O', 27. 
27 • C , 4 7 .0,27 • 0.27. 
2 7 a J,2 7 .0,27,71,27, 
, 7 ,o, 27,0, 47.0, 27. 

27.2.27.0. 27.0.27. 

ilTilit.liClI^laGa.Ta 


0 

0,2 7 
C , 2 7 
0,27 
0,27 
0,27 
0,2 7 
U , 2 7 
0,2 7 
3,27 
3,2 7 
0,2 7 
0,27 
0,27 


2D JUN 

.0,27.0 

.0,27.0 

.0,27.0 

• C , * 7 . 0 

.0,27.0 

•0,27.0 

.0,27.0 

.0,27.0 

« 3 , 2 7 . u 

.0.27.0 


60 AT 
,27.0 
,27. 0 
,27.0 
,27.0 
,27.0 
.27.0 
, 2 7. C 
,27.0 
,27.0 
,27.0 
,27.0 
,27.0 


1 0 : “ 7 : l fc 
,27.3,27. 
,27.0,27. 
,27.3,27. 
,27.0,27. 
,2 J. 0,27. 
,2 7.3,2 7 . 
,2 7.0,27. 
,2 7.0 ,27. 
,2 7.0 ,27 . 
,2 7.0 ,2 7. 


L.27.0 
0,2 7 . 0 
0,27.0 
u , 2 7.2 
2,27.3 

4.27.5 
3, 2 7.7 

4 . 27.6 

0, 2 7 . e 
0,2 7.4 
0 , 27. 1 
0 , 27.0 
0,2 , . 0 


,27. 
,27. 
,27. 
,27. 
,27 
,27 
,28 
,28 
,28 . 
,27. 
,27, 

’27. 

tilt 


0,27. 

0,27. 

0,27. 

3.27. 

4.27. 

9.27. 
3,26. 
5 • 2 9 • 


0,27. 

0,27. 

0,27. 

4,27. 

4.27. 

8.27. 

7.28. 
1 ,29. 

9.29. 
2,28. 

7.27. 

2.27. 
C ,2 7* 


C , 2 7 
0,27. 

3.27 

4.27 
0,27. 
0,27. 
7,29. 
3,29 

1 ,28 
0,27. 

6.27. 

2.27. 
0,27. 


0,27 .2 
2 ,27.2 
3,27.0 
0,27.0 
0,27.0 
0,27.0 
5,29.5/? 

5.29.5 

9.27.5 


•FLOW ( 11 
1 
? 

3 

* 

5 

ft 

7 

P 

o 

1C 

11 

1? 

II 

1** 

1* 

16 

17 

18 

IS 

22 

!2 

25 

2ft 

27 

22 

29 

3C 

31 

I? 

?j 

3 u 
35 

37 

3P 

39 

40 
Ml 
92 
47 
44 
4 C 

46 
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46 

4 e 

cp 

5! 
c ? 

§3 

54 

cc 

56 

57 
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h r 
61 
tl 

6 3 
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65 
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67 
6R 
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7? 

71 
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7 7" 

74 
7? 

7ft 
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« PLOTMN FOP CREATED ON 11 DEC 79 AT 18 : 30:09 

C ****** *** 4 ***»<■************** **+****»********** *** **** ************* **** 
C MAIN PROGRAM FOR ANALYSING AND PLOTTING THE RESULTS OBTAINED BY ANCMN 
C ********* ******* ******************************************* ************ 

PARAMETER IN= 1 6 , JN= 14 » KN=S , IM = 1 5 , JM= 1 3 ,NCN= 31 « MCYS 15 
INTECER RGRID 

D IME NS ION IRUF( 100 ai,TL( 41 ,TH( 4 l ,TI( 4 ) ,C 1 (MCY 1 ,Q 21 KCYI , 03 <MCY» t 
C 04 (MCY 1 ,OS(MCY) ,TAl (41 
0 IME PSION IPLOTI 51 ,NPLOUT(MCYI .NSTANO 1 MCYI 

0 IME NSION U 1 (IN, JN ,KN» f U 2 IIM,JN,KN» »V It IN,JN,KN 1 , V 2 UN, JN,KN 1 , 
CVI(lM,JM,KNl,ETAlCIM,JKl,ETA(IM,JM>,MXtIN,JN),“Y(IN,JN>, 

CMAR< IN, JN 1 ,H(IN .JN 1 ,HB JIM .JM ) ,UP(IH, JM.KNI ,MlOCW( 41 , 

CV 9 ( IP, jM,KNl »HU(IN, JN) ,HV(IN, JNl.MEXI IH,JM l,MEYCIM,JM» 

DIMENSION T 1 (IM,J*,KN> ,T 2 114 , JM.KNI, TBUMi JM.KNI 
DIMENSION TIDE INI IM 1 , TIDE 2 N C IH 1 ,TI 0 E 3 NUMI ,TIRf IM.JM .4 » 

DIMENSION TIDE 1 SUM 1 ,T 1 DE 2 SIIM»,TIDE 3 SUM 1 .RGRID l iM.JM 1 
DIMENSION XX (NCN 1 ,YY(NCNI,ETAL(MCYI,ETAH(KCY 1 ,ET A IN T( MCY 1 
OAT A 4 MIOEU(I)»I=l, 4 )/ , EBB*» , LOl«*,•FLOO*»•HIGH , / 

READ 2 ,IPL 0 IR,IPL 0 CM f NIR,KPL 0 T,NCV 
READ 2 ,(TLin,I = l,NlR» 

READ 2 , (TH(I >, 1 = 1 , NIR) 

READ 2 ,(TI(I), 1 = 1 ,NIR) 

READ 2 , IT/, 1 ( 11 , 1 = 1 , NIR 1 
READ ?,(G 1 (II,I= 1 ,NTR) 

READ 2 , CC 2 U I, 1=1 , NIR) 

READ 2 , ( 03(1 1 , Iri , NIR ) 

READ 2 , ( 04 ( 11 , 171 , NIR) 

READ 2,(05(11,1=1 f NIR 1 
READ 2,06 

READ 2 , ( IPLOT (I) ,1 = 1,5 1 
READ 2 ,(NPL 0 UT III ,1 = 1 , NCY) 

READ 2 , (NSTANO ( 1 1 ,1 = 1 , NCY 1 
READ 2 , (ETAL(I ) ,1 = 1 , NIKI 
['(/AO 2 , (ETAHU 1 ,1 = 1 , NIR) 

READ 2 , (ETAINT (I) , 1 = 1 , NIR 5 
REAO 2 , XL ■’ 

READ 2 , OX ,DY 
00 9 NC= 1 ,N CN 
READ 2 , I,J 
XX(NO=FLCAT(I-ll 
YV(NC 1 =FL 0 AT(J -11 
9 CONTINUE 
2 FORMAT ( 1 

K 7 =KN -1 ' 

FACTU. 

CALL FACTOPIFACT) 

AKN=FL 0 AT(KN -11 

OELZUOD. 

.ARM! N = .04 

ARMA > = .15 -/ 

DS=. 2 S 

ALRE F= 80 CGC 0 . 

P M I = C • 

COSF =COS (PHI 1 
SINF =SIN(PHI ) 

1 \ XSCALE=XL/DX/FLOAT(IN-sl-l 
i 1 Y 3 CA LE=XSC ALE 
ZSCAIE=. 0 Q 3 
USCA LE= • 0 C 75 
V SC A LE=USC ALE 
USCALE= 3 . 

XSC= 1 ./ 2 , 54 /XSCALE 
YSC= 1 ./ 2 . 54 /YSCALE 
ZSC= 1 ./ 2 . 54 /ZSCALE 
U 3 C= 1 ./ 2 . 54 /USCALE 
VSC= 1 ./ 2 . 54 /VSCALE 
WSCr 1 ./ 2 . 54 /USCALE 
WRlTE(t,lCai XSC,YSC,ZSC 

ICC FORMAT! IX, •XSC? • , F 1 2.2 , • YS C= * , F 1 2 .2 , * ZSC=*,F12.21 

W PI T E ( 6 , 2QC I USC,VSC,WSC 

ZUQ FORMAT! IX , ’U SC = • , F 1 2 . 2 , * V SC= • ,F 1 2 . 2 , * WSC=* ,F l 2 . 2 I 


CALL PLOTS ( IBUF ,1200,11) 
NFLTiO 


CALL PL0T(a,,3.,-31 

C********* ************** ******* **** ******** ******** ********* *********** 

C**#**PLOT S ISOTHERMS FOR the IR OBTATNEO C MAN INTERPOLATED T-F1EL0 
DC 3 N=1 ,MR 
DC 8 J = 1 , J M 

READ 2, ( tlR( l, JVNl ,1 = 1 ,IMI 


Bfi 

8! 

82 

87 
84 
0 5 
86 
B7 

88 
80 

90 

91 
9? 
9$ 

94 

95 
9 6 
97 
94 
00 

ICO 

10! 

102 

107 

104 

105 
1C6 
107 
1 09 

. vjo 

1 10 
11! 
112 

117 
1 1« 
115 
1 16 
m 

118 
11° 
120 
121 
122 
127 

124 

125 

126 

127 

128 
12° 
1 3P 
13! 

132 

133 
AIM 

35 

1 36 
1 37 
138 
135 
14C 
14 1 

142 

143 

144 

145 

146 

147 
146 
140 
150: 
151 
15? 
153 
15 u 

155 

156 

157 


8 CONTINUE 

I F € I FL0IR.E0.01 00 TO 7 
DO 1C N= 1 ,NI R 
P 1:0 1(N) 

P2=02<N1 

P3=C3(N) " 

P 4 -0 4 ( N 1 
P 5=0 SIN) 

2LIT:TU(N» 

Z31G aTH'(N) 

SAMCIN=2LIT 

TINTtTKNJ 

CAU PLOT! 10.v0.t~3l/ 

DO 11 1 

DO 11 1=1.1* 

11 ETAI I,J»=TIR(I,J,N1 

CALL ECHKON(ETA,IM, JM, 1.IM, 1 . JM.4 . 8. 5 .6, . 04 . S AHCON, TINT, 

CRGRIC.IM, JH.ZLlT,ZBIG,a..O..0..<9.,0.O..07,l..NPLT.IN*JN«KN, 

CNCN, CX.DY.XSCALE, YSCALE.COSF.SINF.XX ,YY) 

CALL CflPTNl<Pl,P2»P3.P4.P5,06.XSC.USCl 
, CALL CAPTH5IN.HIDEW1 

12 CALL CAPTN3CNJ 
CALL PLaT(0.,0.,3> 

1G CONTINUE 

7 IFtI FLOCK. EO.O) GO TO 14 

C++++++*** 1* *****#*+**+•**++*#***»+++ ****+**+**#**+++++***++**+**+++*++ 
C*****ANALYZES AND PLOTS THE HOURLY RESULTS OBTAINED EROH CALCULATION 
C *** READ £ IN HOURLY RESULT AND MAKES THE CHOICE OF WHICH TO BE PLOTTED 
DO 1C00 NCTRri.NCY 


CALL REAOT IIN.JN.KN.IM .JH.U1.U2.V1 ,V2,W,ET A1.T1.T2.TB. 

CETA, FT,MY,KAR,H,HS,UB, VB.HU.HV.MEX.MEY ,NCASE.NeLOK,TTOT*OT t 
CT IDE ]N,TI0E2N,TIDE3N,T1DE1S,TIDE2S,TIDE3S,STAG£,EST, 

CAMPL IT .PHASE, DPHASE, PERIOD 1 


J 


•// 

if 


r 


IF((NPLOUT(NCTR|.EO.O).ANO.(NSTANO(NCTRI.EC.OI> GO TO 1000 
N=NS TANO(NCTR) 

NG = N FLOUT (NCTR > 

DO 3C06 1=1, IM 
DO 3C06 J=1,J* 

lrCMEXTI.J) .EQ.ai TB(I,J, 1)=TA1CN1 
3006 CONTINUE 

P1=E?T . /PK 

P2=0 2CNG> /V ’ ,JJ " 

P 3=0 3(NG ) , ' 

P4=C«(NGJ ’ 

P5 = 0*CNG» 

SUM=C. ■■ .v 

K =KP LOT 
DO 995 J=1,JH 

DO 9 95 1=1 ,IM ^ 

5 UK = SUM ♦ (T0(1,J,K l-TIR II , J,N> }**2 ‘ 4 

995 CONTINUE 4 

SUMrSUM/ (1M*JM I % 

SUM= SORT (SUM I V ... -? 

WRIT r ( 6 , 9S21 EST.N.SUM 
IFCNFLOUTCNCTRl.EC.Ol GO TO 1000 
CALL D L0T(10.,0.,~3) 

HKAX = 0. 

DO 5 1=1, IM 
DO 5 J=1,JH 

IF (KEX( I ,J1 .E0.01 GO TO 5 
AM=HE(I,J)*ETA(Z|JI 
H W AX :AMAX1<AH,H*AX ) 

5 CONTINUE 

KOil 4INT (HMAX/DFLZ) . 

C*****PLCT S RESULTANT VEL OF ‘U ?t V ON NEARLY HORIZONTAL SIGMA PLANE 
IF U PLOT ( 1 » .EO .01 GO TO 1301 

CALL PLOTUVCIH, JN.KN.IM.JH.UP ,VB , ME X , HE Y , NCN , 

CXX.Y Y,AKN,0EL?,ZPRH,ARKIN , ARM AX ,C0 SF .S1NF.KC, HB.UDUM1 , 

CUGUK ,XL,UKAX,DX ,DY,HMAX,NPLT,KPLOT , 

CXSCA IE,YSCALE*25CALF,USCALL,VSCALE,WSCALE,STAGE,ETA1 
CALL CAPTM(F1,P2.Pj,P 4,P5,06.XSC,USC1 
CALL CAPTNStN, MIDEWI 
CALL C APTH? ( N I 
CALL PLOT (0..0..3) 

CALL PLOTI10.,0.,-3I 

C*****PLOT S RESULTANT VEL OF U ?G U ON E -W VERTICAL SECTIONS 
1CC1 IFClfL0TC2l.E0.0l GO TO 1002 

CALL PLO TUW ( IN , JN ,KN . I f’ , JM ,UF » W.KZ , OX »0Y , DS , 

CP LOT FT fHMAX.UKAX .UMAX .HEX ,HU ,AR*’IN,ARMAX,XL,COSF,SINF»HB»MAP, 
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ISP. 

150 
160 
161 
16? 
1 6 7 

164 

165 

166 
167 
1 6 P 
164 

170 

171 

172 
177 
1 7u 
175 
1 7 Si 
177 
1 7P 
174 
18C 
iai 
1 P 2 
18 3 
ie4 

185 

186 

1 87 
188 
185 
l<jr 

151 

192 

193 

194 

195 

156 

157 

198 

199 
2GH 
2C1 

2 C? 
2C3 
2C4 
205 
226 
2 C 7 
208 
2 C 9 
2 1C 
2 11 
21 2 


CNPLT ,XSCALS,YSCALE.ZSCALE,USCALE,VSCALE,WSCALE,STAGE,ETA,HXI 
CALL CAPTNHP1,P2,PJ,P4,P5,C6,XSC,USC> ' 

CALL CAPTN5(N,MI0EU» 

CALL CAPTN6IN1 
CALL PL0T<0. ,0. ,31 
CALL PL0T(1D.,0.«-31 

C*****PLQT£ RESULTANT VEL OF V C W ON N-S VERTICAL SECTIONS 
1002 I F (I FLO Y < 3 ) . £0 . C i GO TO 1303 

CALL PLOTVW{IN,JN,KN,IM.JM,VB»W,KZ,DX ,DY,0$ , 
CPLOTFT,HMAX,UMAX,WMAX,KEX,HV,ARM1N,ARMAX,XL,COSF,SINF,H8,MAR, 

CNPLT f XSCALE,YSCALE,7SCALE.USCAL£,VSCALE,VSCALE,STAGE,ETA,MY» 

CALL CAPTN1 (PI ,P2,P3,P4,PS,Q6,XSC,USC I 
. CALL C A P T N 5 ( N, M I D E W 1 
GALL CAPTN7 (NfJ 
CALL PL0TI0..O..3) 

CALL PLOT ( 10 i»G. »“31 

C*****PLOT.J SyRFAC|„EUVATlQN CONTOUR, CONTOUR VALUES MUST BE GIVEN INDIV 
1003 IF ( I FLOT (4 ) iEO.OT GO TO 997 
ZLIT -ET AL f NG I 
ZP IG-CTAHI NG ) 

SAMCCN=ZLIT 
£ IN T =E T A I N T ( NG 1 

CALL ECHKON(ETA,IM, JM, 1 , IM , 1 , JM ,4 . 8 , S . 6 , » 04 ,S AMCON ,EINT, 

CR GRI t » IM » JM , ZL IT , 20 IG , Q > ,0* ,0 ■ , 0 • ,0,0 , • 0 7 ,1 • , N PLT ,IN,JN,KN , 

CNCN » £X,DY , XSC ALE ,YSCALE,COSF ,SINF , XX , Y Y ) 

CALL CAP TNI ( P 1 ,P2 »P 3, P 4 ,P5 , 06 , XSC , USC » 

CALL CAPTN5(N,HIDEU» . 

CALL CAPTN8 (N1 
CALL PLO T I 2 • ,‘0 • , 3 > 

CALL PLOT! 10,,0.,-3 J 

C*****CONT CURS THE ISOThEPMS OF CALCULATED T-FIELOS, VALUES ARE ASSIGNED 
997 IF»IFL0Tt5 J.EO.Ol GO TO 1000 
KrKPtOT 
DC 95e 1 = 1, IM 
00 958 J=1,JM 
996 ETAt T.JirfftCI, J,K 1 
ZLIT :TL (NG| 

ZBIG = TH • NG 1 
SAMC tN = ZLI T 
TINT =T1(N6! 

CALL ECHKCN (ET A , IM , JM , 1, IM , 1 ,,tfH , 4 . 8, S .6, . 04 ,S AMCON, T IHT , 

CR GRI C,IM,JM, ZLIT, 78 TG , 0., 0., 0 v,n. ,C,0,. 07,1 ,,NPLT ,1N, JN,KN, 

CNCN, CX.OY, XSC ALE ,Y SCALE ,COSF,S INF, XX, YY ) 

CALL CAP TNI (PI , P2 , P 3,P 4 ,P5 , 06 , X SC , USC I 
CALL CAPTN5 (N.MIDEU ) 

CALL CAP TN4 ( SUM I 
CALL CAPTN9 (N) 

CALL PL 0 T ( 0 • ,0 • » 3 1 
CALL PL0T110.,C.,-31 

991 FORM A T C IX, 15F8.Z I 

992 F0RMAT1F8.2, • DEVIATION W.R.T. IR TEMP AT',15,* IS (OEG-C 1 • ,F1 Z.5 1 
1000 CONTINUE 

14 CALL PL0T(C.,0.,999» 

101 §TOP 

t ND c 
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♦ flow ( l » 
l 

3 
x 

4 


6 

7 

P 

9 

10 

n 

l? 

13 

14 

15 

16 
17 
IP 
1» 
20 
2! 
2 ? 
2 ? 

24 

25 
25 
27 
2° 
29 
3C 
21 
22 

33 

34 

2 5 

36 

37 

3 R 
io 

40 

41 
4? 

43 

44 

45 

46 

47 
4ft 
47 

50 

51 

52 
5 T 

5 4 

55 

56 

57 
5? 

59 

60 
61 
62 

6 3 
6 4 

65 

66 
67 
65 
6.9 
7 r 

71 

72 

73 


•PLOTUV FOF CREATED ON 7 DEC 79 AT 1C:05:19 

C ********* <************************************************************ 

C TO PLOT RESULTANT OF U t V ON SIGHA PLANE K=KPLOT 


SUBROUTINE PLOTUV ( I N, JN.KN, IK , JM , Ufc . VB , HEX , PE Y ,NCN f XX , YY , AKN , 
COELZ ,2PRR,ARM1N,ARMAX,C0SF,SINF ,K0 »HB .U0UM1 ,UOUM , XL.UM AX , D* , DT . 
CHMAX .NPLT.KPLOT, 

CXSCAlE.YSCALE.ZSCALE.USCALE.VSCALE.KSCALE.STAGE.ETA) 

DINE AS ION UP IIM.JM.KN) JM .KN 1 .HEX ( IH, JM > ,HE YtIM, JM> , 

CXX(NCN) .YYCNCNI ,HB (IH, JM I ,ETA 1 1*% JM > 

MRIT E(6, 32 ) 

32 FORM »T< IX, *UV PLOTS’! 

A l=CX*XSCALE/2. > 

M = KP LOT 

IFtH.GT.il GO TO 20 
DEPTF=0. 

00 3 C 1=1 , TH 
DO 3 C J= 1 « JH 

IFtHEXU, J).EO.O> GO' TO 30 
A I = FLOAT 1 1 -1 )*DX*XSCALL 
A J = FLOAT t J-l l*DY*YSCALE 
A Al= fT’UB II, J,M )*USCALE. 

AAJ=AJ+VB< I,J,M J*VSCALE 

CALL VECT tAI.AAl, A J .A A J , ARKIN , ARHAX.COSF ,SINF » 

3D CONT 1NUE 
GO TC 8 

C* •** 4 * ************* *************** 

20’ CONT INUE 

OEPTF=OELZ*FLOATtM-l) 

DO 4 C 1=1,1** 

DO, 4 C J=l, JM 

IFtHEXtl tJI.EO.GI GO TO 40 
A H=H Ed , J ) ♦£ T'A II, J) 

IF(DEPTH.GE.AH1 GO TO 4C 

DOZ=AH/AKN 

L 1 = 1 «INT tDEPTH/DDZ ) 

298 L2 = L 1U 
L 3=L <♦ 1 

IFtL2.LE.KN) GO TO 299 
L 1=L 1-1 
GO TC 298 

299 CONTINUE 
Z1=0C7*FL0AT (LI -1 > 

Z 2=7 1*DD7 

Z3 = Z 2’DOZ 
E 1=U C « I . J.L1) 

E2=UP.ll ,J,L21 
E 3=11 F ( I , J,L 3 > 

CALL FIT <Z1,Z2,Z3,E1,E2.E3, A, 8,0 
UDEP TH=A*DEPTH**2-*B*DEPTH’C 
E 1 = V F (I t J , L 1 ) 

E2=VEt 1, J,L2) 

CSLL^fU (5liZ2,73,El,E2,E3,A r n,C) 

VCEP ■!H = A*0EPTH**2’5*DEPTH-'C 
AI=FtOAT<l-l)*OX*XSCALE 
A J=F10AT t J-i )*DY*YSCALE 
AAI = AI+UOEPTH*USCALF 
A AJ=AJ»VDEPTH*VSCALE 

CALL VECTtAI.AAI , A-J ,A A J , A RHIN , ARHAX.COSF, S1NFI 
4 0 CONT IViJE 
e continue 

C*****OR AU S OUTLINE OR BOUNDARY OF THE INTEREST APEA 
CALL PLOT t-A 1,-A l ,- 3 )* . 

call OUTLINUN, JN.KN,NCN,DX,DY,XSCALE ,YSCALE,COSF ,SINF ,XX, YY) 

, CALL PL0TIAI.A1.-3) 
ft , NPLTDIPLTM 

WRITE (fc. 13! NPLT, DEPTH 

1 9 FCR4 £T( ix f ’PLOT N9R = ’ , 16. * COMPLETED. DE PTH=* , F 10. 0 , • C*»M 
10 CONTINUE 
500 CONTINUE 
2 FORM AT( ) 

RETUFN 

END' 
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• FLOW ID 
1 
2 
7 
4 
«: 

6 
7 
n 
o 

1C 
11 
1 ? 

1? 

14 

15 

16 
17 
13 

19 

20 
21 
21 
23 
2« 

2*5 
26 
27 
,2R 

f? 

21 

32 
27 
3 « 

35 
26 
27 

33 
39 
4 *" 

41 
4 2 
4 7 

44 

45 

46 
4 7 
4 * 

4 9 

5? 

51 

5 •» 

.. 5 3 
V.54 
',55 
J56 
;/5 7 

5? 

60 
61 
6? 

6 3 

64 

65 

66 
67 
6 ° 

69 


.PLOTUW FOR CREATED ON 19 DEC 79 At 12:12:46 

C ********* *************************** ************** *4 ******* *********** 

C PLOTS RESULTANT OF U l W ON SELECTED E-U CROSS SECTIONS 

C ********* *«** ********************************************** *********** 

StJBRCUTINE PLOTUW (IN,JN.ftN«IM » JM , U B • W ,KZ,DX ,0Y .OS . 

CP LOT H,HMAX,UMAX, U«AX , MEX ,HU, AR "l N , ARM AX , XL ,COSF , 5 INF, HP , M AP » 
CNPLT ,XSC ALE « YSC ALE ,7SC ALE, USC ALE. V SC ALE t USC ALE 'STAGE V ETA,KX) 

0 IN EASTON MAR (IN, JN J , HBI IH, JM I , E T A l I M , JM > , MX ( IN , JN » 

DIME A SION UB (IHrJM.'KN) ,W dK , JM ,HN 1 ,MEX dH , JM1 ,HU( IN, JN 1 
U R I T E <6 , 32 I 

32 FORMAT! iX'*UW PLOTS*! 

K Z-K A-i 

A l=0>*XSCALE/2. 

DO 1C00 IJ=1,3 
lFd.-£Q.l> J=4 
IFdw.E0.2l J-6 
I F (I ..EO . 31 J- 1 2 
CALL PL0TC0.,«1.5,-31 
DO 7C5 1 = 1, IM 

IF(MEX(I,J1 .EC. 01 GO TO 705 
A I =F 10 AT (1-1 !*DX*X SCALE 
AH=HE(I,J)+ETA(I,JI 
DC 7C6 Krl.KZ 

AK=( JTAGE*ETACI,J)-FL0ATIK-11*DS*AH1*2SCALE 
AAI=AI*UB(I,J,K»*USCALE 
AAKr AK+WCI ,J,K 1*USCALE 
YW=. 2*S0RT( (AAI-AI)**2«(AAK-AK 1**21 
YWrA PA XI (ARMIN,AMIN1(YU, ARM AX 1 1 
CALL AROHDUI.AK.AAl, AAK,YW,Q-,G,12I 
7C6 CONTINUE 
705 CONTINUE 

C*****DRAW S BOUNDARY OR BOTTOM OF THE CROSS SECTION 
CALL PLOT! “A 1,0., -31 
NN = 0 

DO 7 10 1 = 1, IN 

IF (HX(I,J1 .EQ.Ci) GO TO 71Q 

NN=N Ml 

IF.INA.GT.il GO TO 711 
AI=F10ATC I-1)*0X*XSCALE 
AK=( STAGE+£TA(I,J))*ZSCALE 
CALL PL0T(AI t AK,3! 

AK=-2SCALE*tHU(I. JI-STAGEI 

CALL f : LO T(AI,AK ,21 , . C- 

GG TC 712 

711 CONTINUE . 

A IrFlOAT (1-1 !*OX*XSCALE 

AK = -2SCAL£*(HUd ,J1-STAGE1 
CALL PLOT I A I , AK ,2> 

ID = I 

A ID= AT . / 

712 CONTINUE 

713 CONTINUE 

1 F ( 1.LT.INI GO TO 707 
Ak= CSTAGE+O.OI*ZSCALE 
GO TO 7QE 

707 AK=(STAGE+ETA(I,JJI*ZSCALE 

708 CALL PLOT (AID,AK,2! 

WRITEI6.77I J 

77 FORM AT ( IX,* J = *, 14 1 
F J = F LOA T ( J 1 

CALL SYMB0L(5.4,-n.7,.l,2HJ=,0.,2> 

CALL NU**0ER(5.7,-n.7, . l,FJ,n.,-II 
CALL PLOT ( A1 »0.,(, “3 ) a 6 

13CQ COM INUE . : . . 

CALL PLOKO.,-*. 5,-31 
NPLT :npl T ♦ 1 
WRITE(b,16! NPLT 

13 F CRM AT ( IX, ’PLOT NBR*,I4,* COMPLETED*! 

RETURN • 

ENO 
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ll.PLOTVW FOF CREATED ON 19 DEC 79 »T.1?:1C:11 

C ********* « ********* *+*« ****** ******* ************ ****** * ******* ******** 
C PLOTS RESULTANT OF V C M ON SELECTED N-S CROSS SECTIONS 
C ********* «* ** ********* ***** ***** ******** *********************** ******* 
SUSP CUTINE PLOTVWTIN, JN ,KN, IM ,JH, VB,‘J ,K7»DX ,DY,OS, 

CPLOT 6-T,HMAX,UMAX,UMAX,MEX t HV, ARMlN , ARM AX ,XL »COSF , S INF ,Hfi , M AR , 
CNPLT «XSCALE.YSCALE»’SCALE.USCALE»VSCALE»USCALFtSfACEfETA t NT) 

D INE AS ION MAR ( IN , JN ) ,HBI IM , JM » r ET A (1H ,JH I , MVt IN, JN> 

D IME ASION VB«IM,JM,KNI ,W { IM , JM ,KN I , MEX ( IM , JM > ,HV UN , JN» 

WRIT E (6» 32 I 

32 F ORM ATtlX**VW PLOTS’! 

K Z=K A -1 

AUD >*XSCALE/2. ' 

00 1C00 M = l,3 
IF(M.EC.I) I - M 
IF<P.EC.2> 1 = 8 
IF(M.E0.3> 1 = 12 
CALL PLOT(0.,*1.5,-3I 
DO 8C2 J=1 ,JM 

IFIMEXCI.J) .EO.O) GO TO 802 
AJ=F10ATCJ-1 )*DY*YSCALE 
AH=HPCI,J>*ETACI f J) 

00 8 C3 K=1 f KZ 

AK=( STAGE*ETA (I .J»«FLO AT(K-1 J *DS*AH1*ZSCALE 

AA k =/J*VB( I,J»K>*VSfALE 

A A K = AK + U (I » J t A I *WSC ALE 

YVr. 2*S0RT ( ( A A J-A J ! *’•2 ♦ I A AK -AK » **2 1 

YJ.TAMX WARMIN , AMIN 1 < Y W , ARM AX > ) 

CALL AR0H0tAJ f AK,AAJ t AAK,Yy,0.0.12> 

803 CONTINUE 
8C2 CONTINUE 

C*****ORAU S BOUNDARY OR BOTTOM OF THE CROSS SECTION 
CALL PL0Tf-AI f 0.,-3I 
NN=0 

00 8 10 J = 1 » JN 

IF|MY(I t J) .EQ.O) GO TO 810 
NN=NA*1 

IF(NA.GT.l) GO TO 811 
A JsFlOAT t J-11*0Y*YSCALE 
AK=J ITAGE-ETA(I ,JI )*ZSCALE 
CALL PLOT ( A J ,AK ,3 ) 

AK=-2SCALE*IHV( I, JJ-STAGE) 

CALL PLOT ( A J »AK f 2 T ’ 

GO TC 812 

811 CONTINUE v 

A J=FLOAT( J-l J*DY*YSCALE 
AK=-2SCALE*IHV(I,J1-STA6EI 
CALL D LOT I A J • AK • 2 ) 

JC=J 
A J0= A J 
8 12 CONT 1NUE 
810 CONTINUE 

1 F { J .LT.JN) GO TO 8(77 
AK=( lTAGE-*a.OI*?SCALE 
GO TC 608 

8C7 AK=»<TAGE«ETA(I.JJ)*ZSCALE 
808 CALL PLOT! AJD, AK ,2) 

WRITEC6„77I I 
77 FCRM/TllXf*I=*»T9I 
F I =F 10 A T { 1 ) 

CALL SYMBCL(S.M f -0.7,. 1,2HI=,0. ,21 
CALL NUMBER l5.7*“0»7,«l t FI 1 T«,-ll 
CALL PL0TCAl,0.,-3! . 

1000 CONTINUE - 

CALL PLOTIC. 

NPLT SNPL T-* 1 
WRIT E<6y 18 ) NPLT 

18 F ORM /T ( 1 X , ’PLOT N9R» t I4,» COMPLETED* 1 
RETUFN 

ENO . ... ' 
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D.OUTLtN FOR CREATFO ON 10 DEC 79 AT 11:23:23 

C********* *«** ************** ****** ************************** *********** 
C 0RAWS OLTLINE/BOUNDARY of the interest area 

C ********* * ************* ************************* ********************** 
SUBRCUTINE OUTLlNtIN f ON,KN,NCN,OX,OY,XSCALE,YSCALEfCOSF, 

CS INF |XX. YY > 

DIME tSION XX (NCN1 ,YY(NCNI 

00 15 NC -1 ,NCN 

A=XX (NC1*0X*XSCALE 

B=VY INC»*DY*YSCALE 

KV=2 \ 

IF(NC.EO.l) K V-3 ji 

X=A*C0SF*B*S1NF t> ■ ' 

Y = -A <SINF«B*COSF * 

IS CALL PLOT (XtVyKVI 
RETURN 
END 
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CL 7 CREATED ON R DEC 79 AT 09:59:18 

subroutine echkon 

THIS IS ENTRY SUBROUTINE FOP NHC CONTOURING PROGRAM 
ECALCCMP OR MILGO TYPE PLOTTER 3 


ELBERT HILL, NHC, MIAMI , FLA. 


FALL, 1970 


THE 

ALL 


COMPLETE PACK AGF CONSISTS OF 3 SUBROUTINES, ECHKON, CONLIN, AND ENOCH 
2 ARE CATALOGUED TOGETHER IN THE MM 360/65 UNDER MODULE NAME ECHKON, 

A AO DECKS ARE NOT NEEDED. 

ANY RECTANGULAR GRIDDED SCALAR FIELD CAN BE CONTOURED ON MILGO 
OR CALCOMP TYPE PLOTTER BY SETTING UP PROPER CALLING ARGUMENTS ANO 
PROCEDURES AS INDICATED BELOW AND THEN CALLING ECHKON. 


-CALLING STATEMENT IS AS FOLLOWS* 


CALL 

2C0NI 

3NCAS 


HH 


CX 


N EX 1 
B 
C 
R 


HI I 
WIO 

PL TT 
A 

SIN 

I 


SAHC 

F 


ECHKONCHH.INI ,TN2 ,NEX 1 ,NEX2 ,N EY 1 , NE Y 2 , HI ,UI 0 , PLT I NC, S AMCON, 
M,RGJ?ID»IN3,IN4,7LIT,ZBIG,AN0RTH,AS0UTH»A£AST,AWEST,N0ASH0 f 
FU,XLABEL,SM00TH,IRECCY3 

DESCRIPTION OF CALLING ARGUMENTS 

I ARRAY CONTAINING GRID DATA TO BE CONTOURED. ITS DIMENSIONS \ 

RE INI AND IN2. DIMENSION HHCIN1.1N23. POINT 1,1 IS LOWER LEFT 
CRNER OF GRIO. INI IS DIMENSION IN X DIRECTION AND IN2 IS 
1MENSI0N IN Y DIRECTION. 

CREASES FROM WEST TO EAST AND Y INCREASES FROM SOUTH TO NORTH 3 

, NEX2 , NEY1, AND NEY2 OETEPMINE THE PCPTION OF HH GRIO TO 
E USED. NEX1 ANO NEX2 ABE THE FIRSTCLEFTMOST 3 AND LASTCRIGHTH0ST3 
CLUKNS TO BE USED. NEY1 AND NEY2 ARE THE F IRSTCBOT T0M3 ANO LASTCT0P3 
CWS TO BE USED. CTHUS ANY SECTION OF HH CAN BE USE03 

FOR FULL GRin 

HEX 1 3 1 
NEX2 3 INI 
NEY1 > 1 
NEY2 3 IN2 

I HEIGHT IN INCHES OF CONTOUR MAP BETWEEN LIMITS NEY 1 ANO NEY2 
IS WIDTH IN INCHES OF CONTOUR MAP BETWEEN LIMITS NEX1 AND NEX2 

AC IS STPAIGHT Lf NE PLOT INCREMENT IN INCHES TO BE USED 

LONG CONTOUR. GOOD VALUE IS .OR, BUT CAN RE VARIED UP OP DOWN. 

CE LARGER VALUES CAUSE PROGRAM TO RUN A LITTLE FASTER, IDEAL VALUE 
S LARGEST THAT WILL STILL GIVE SMOOTH LOOKING CURVES. 

CO SOME EXPERIMENTING WITH TT. START WITH .03 OR .OR ANO INCREASE. 

CN IS ANY SAMPLE CONTOUR VALUE. IT IS USED AS A STARTING POINT 
CR COUNTING UP AND DOWN TO GET OTHER CONTOUR VALUES. 


CCNIM IS CONTOUR INTERVAL TO BE USED. 

RGRIC IS AN INTEGERS STORAGE ARRAY USED INTERNALLY IN PROGPAM 

A AD NEED NOT BE IMTIALI7ED. IT IS INCLUDED AS ARGUMENT IN ORDER- 
TC TAKE ADVANTAGE OF VARIABLE DIMENSIONS. DECLARE AS INTEGER*2 
BEFORE CALLING. 

i 

IN3 AND INR ARE X AND Y DIMENSIONS OF RORIO. DIMENSION RGfi IDE IN3 , INR 3 
I A3 MUST BE AT LFAST AS LARGE AS NEX2-NEX !< 1 
IMt MUST PF AT LFAST AS LARGE AS NEY2-NEYKI _ 

CTHUS RGRID MUST BE AS LARGE AS PORTION OF DATA ARRAY HH BEING USE07 

2L1T ANO 2BIG ARE LOWER' AND UPPFR CONTOUR CHECK LIMITS. NO CONTOUR 
WILL BE DRAWN RELOW VALUE OF ZLIT OR ABOVE VALUE OF 2BIG. 

CUSEFUL TO PREVENT DRAWING FOR ANY COMPLETELY WILD DATA] 

ANGRTH, ASOUTH, AEAST, ANO "WEST CAN BE USED TO ELIMINATE ANY 
NLMBER OF INCHES FROM ANT SIDE OF FINAL DRAWING. 

FCB FULL DRAWING WITH HEIGHT > HI ANO WIDTH 3 WID, 

INITIALIZE ALL R OF ABOVE ARGUMENTS TO ZERO. 

F CR EACH OF THE ABOVE WITH POS I T I VE . VALUE , THIS MANY INCHES 
VTLL BE ELIMINATED ON SIOE TO WHICH IT APPLIES. 

THIS ALLOWS US TO FIT ANY RECTANGULAR GPIO TO ANY MERCATOR 
OR OTHER MAP LIMITS WITHOUT ACTUALLY ADJUSTING THE GRID. 
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C 

C 

c 


c 

c 

c 

c 


NC A S Ml AND NDASHU CONTROL TYPE OF CONTOURS TSOLID OR DASHED LINES] 
IF EITHER OR BOTH ARE ZERO OR LESS, CONTOURS ARE SOLIO LINES. 

IF BOTH APE POSITIVE, CONTOURS WILL BE DASHED AS FOLLOWS 


PIN DOWN SECTION LENGTH > NOASHD*PLTINC CPLTINC IS INCREMENT LENGTH* 
PEN UP SECTION LENGTH > NDASHU*PLTINC 

CTHUS LENGTH OF DASHES AND SKIPS IS FULLY VARIABLE] 

X LABEL CONTROLS LABELING OF CONTOURS. LINES ARE LABELED 
ONLY IF XLAREL GREATER TH»N ZERO. VALUE OF XLABEL 
IS HEIGHT TN INCHES OF LABEL NUMRERS. LINES ARE LABELEO 
WITH NEAREST WHOLE NUMBER VALUE OF CONTOUR. IF SPECIAL 
L AEELIN6 TO INCLUDE ONLY PART OF NUMBER OR TO INCLUDE 
OECIMALS IS OESIRED, SUBROUTINE ENDER MUST BE CHANGED. 

SPOOTH IS A CONTROL FOR VARYING CONTOUR SMOOTHING. 

INITIALIZE SMOOTH TO SOME VALUE BETWEEN 0.25 AND 7.5 
CANY VALUE OUTSTDE THIS RANGE IS SET INTERNALLY TO 1.0] 

LARGER VALUES GIVE SMOOTHER CHART WITH LESS DETAIL, WHILE 
SMALLER VALUES GIVE LESS SMOOTHING ANO MORE DETAIL. 

C FORMAL VALUE FOR MOST RUNS SHUD BE ABOUT 1.53 

ANYTHING LESS THAN ABOUT 0.90 OR LARGER THAN ABOUT 3. IS 
FROBABLY NO GOOD. BEGIN WITH 1.5 ANO EXPERIMENT UP OS DOWN 

TC DETERMINE MOST DESIRABLE VALUE FOR YOUR NEEDS. 

CIAPUT GRID DATA VALUES ARE NOT ALTERED IN THIS SMOOTHING] 


IRECCY IS PLOT TAPE RECORD COUNTER. INITIALIZE TO NUMBER 

OF PLOT RECORDS WRITTEN BEFORE FIRST CALL TO CONTOUR SUBROUTINE. 

ALL OF THE ABOVE ARGUMENTS EXCEPT ARRAY R6R ID MUST BE DEFINED. 
ARGUMENTS ARE NOT ALTERED WITHIN PROGRAM, AND RETURN INTACT. 

FLOTTER BUFFER SPACE MUST BE SET UP ANO CALL TO PLOTS 
MADE BEFORE FTRST CALL TO THIS SUBROUTINE. 

PLOT TAPE MUST BE CLOSED OUT AFTER FINAL CALL. 


/NY NUMBER Of SUCCESSIVE CALLS CAN BE MADE TO CONTOUR 
SUBROUTINE ECMKON. EACH MAP BECOMES A SEPARATE PLOT RECORO. 

AO INTERNAL HAP SPACING IS PROVIDED, WITH PEN RETURNING TO 
CPIGINAL ORIGINCLOWER LEFT CORNER] AT COMPLETION OF MAP. 

CTHUS IT IS SIMPLE TO PUT MORE THAN ONE SET OF CONTOURS ON SAME MAP] 
A AY SPECIAL MARKINGS OR LABELS THAT ARE DESIRED MUST BE DONE 
CUTS10E THIS SUBROUTINE. THIS SUBROUTINE DRAWS CONTOURS ONLY 
WITH INCOMING ORIGIN BEING LOWER LEFT COPNER OF CONTOUR CHART. 



SUBROUTINE ECHKON (HH , I M , IN?, NEX 1 , NEX 2 , NEY1 ,N E Y2 , HI »W I D , PL TINC , 
?SAMCCN,C0NINT,RGRID,IN3,IN4 ,ZLIT,ZBIG,ANORTH,ASOUTH,AEAST,AWEST, 

IN CAS AD, NO A SHU, XL ABEL, S MOO TH, IRECCY, IN,JN,KN, 

CNCN,CX,OY,XSCALE , YS C AL E , COST , S INF , XX , Y Y J 

SEE ABOVE COMMENTS FOR DESCRIPTION AND USE OF ABOVE ARGUMENTS 

C CMM ( 

2YPP i 
3LI 

9N'„. 

FDCLA ES.OUTS 

C CMM CN /OENDEO/HIXEN.WCDE.HOGH.XXLAST .YYLAST 
LOGICAL DASHER, nOLARS.,OUTS 

DIME ASICN HHIIN1,IN21 , RT>R ID 1 1 N 3 , 1 N 4 » ,HEN ( 9 > ,XX (NCN » *YY (NCN) 

INTE CER RGRID ’ , 

DATA I MAP/ 0/ 

NHC SUBROUTINE FOR CONTOURING SCALAR FIELD ON CALCOM.P OR HILGO TYPE PLOTTE 
ELBERT HILL FALL, 1970 — 

I = If* /P« 1 
WRITE 16 , 1 C ) I 

10 FORM ATI /'//,2X, 11HC0NT0UR MAP , 1 4 , 1 X ,26H I NCOM TNG ARGUMENTS FOLLOW.) 

WRIT El 6, 12 ) INI ,IN2,NEX 1,NCX?,NEY1 ,I,EY2,H1 ,WID ,PL T INC, S AMCON ,CONINT 
2, IN 3 , IN4 

12 r CRM ATI / ,5X,63HIN 1 TN2 M£X1 NEX? NEY 1 NET? HI WID PLTINC SAMCON CO 
2NINT IN 3 IN4.//.2X, 615, 2F1C. 4, 3F12. 3,21101 
WRIT C (5,14 I ZL IT, 2 BIG, ANOR TH , A SOUTH ,AE AST , AWES T .NDASHD , NDASHU ,XLABE 


2L»SMC0TH,IRECCY 

14 F CR M / T < / ,5X,7CM?LIT 2BIG ANORTH ASCUTH AEAST A WEST NDASHD NOASHU X 
2L ABE l SMOOTH I RECC Y ,// ,2X ,2F1 2 . J,4F1Q .4 ,216 ,2F 10. 3 ,16 ,/l 
NAXCFDzQ 
b:H A T Z-99 . 

CONIACzCONINT 

IFCC CNINC.NE.D. )G0 TO 3 

VRITEI6.2) I 

2 FCRMAT«/,2X,3HMAP,I3,14H ZERO INTERVAL 1 
GO TC 120 

3 I REC 1 = 1PECCY«1 
LCAS TlzNOASHD 
LDASF2=NDASHU 
OASHEPr. FALSE. 

JF{LCASH2.GT.0.AN0.L0ASH1.6T.Q>0ASHER=.TRUE. 

HINUFZXLABEL 


? CLA ES=. FALSE. 

F IH 1NUM.GT.C. JDOl APS=. TRUE. 

IFICCNINC.LT.O. JCONINC=-CONINC 
P VOL z.005*CONINC 
MOSI AC=0 

V»LL IN=-989e9B.989 
NU VX -NEX 2-NEX 1*1 
NUVY ZNEY2-NEY1+1 

IFCNLVX.GT . 3.AKD.NUVX.LE.IN3. ANfl. NUVY .GT . 3 . AND .NU VY .LE .IN* IGO TO 8 
WRITET6.7JNEX1 . NE X2 ,NU VX , NC Y 1 ,NEY 2,NU V Y 
7 FORMAT(/«10Xf2 3HBAO ARRAY LIMITS. SKIP . / 10X ,31 10/ 10X, 3 1101 
60 TC 120 

SKIP IF NU VX OR NUVY LESS THAN 4 
6 YORTFzHl-A NORTH 
SOUTFzASOUTH 
E AST -WID -AE A ST 
WEST zAUEST 

IFIUEST.LT. 0. »WEST=0. 

IF (E AST.GT .WID)EAST-HlO 
IF(S CUTH.LT. C. JS0UTH=0 . 

IF CYCRIH.GT.HHY0RTH=HI 
HlXE TzHINUK 
U COE zEAST-UEST 
HOGHZYCRTH-SOUTH 
XXLA £T = 99. 

V YL A !T=99. 

QIHCzPLTINC 
CL1T zQINC/ 1.99 
CBIG zolNC/2. 

TM A X Z4 .0*( YOPTH-SOUTH + EAST-WEST) 

XCRI Cz'.IO/FLOAT ( NU VX-1 I 
VGRI C=HI /FLOAT » NUVY -1 ) 

H1NCZXGRI0 

IF« YCRIO.LT. XGR ID )HINC=YGRID 
XrSMCOTH 

IF (X .LT..25.0R.X.GT.7.5TX = 1.0 
M1NC zx*H!NC 

CUTOF=SORT (XGR1D*XGRID*YGRI0*YGPI0 »*.01 
CLOSlTr.04 

CLOSIT IS VALUE FOR CLOSED CONTOUR CHECK 

NMX 1 znEXI 

NMY1ZNEV1 

N MX 1 1=NMX1-1 

NM Y 1 1 zMH Y 1-1 

NEX4 zNEXl-1 

Nf Y4 ZNEY1-1 

NEXT OETEPMtNE MAX. AND MIN VALUES IN SCALAR FIELO 
Z**AXzHHINEXl,NEYl) 

ZKINZZMAX 

DO 3 C I=NEX1,MEX2 

DO JC J=NEY1 ,NE Y2 

IFLHMI.J) >GT . ZM A X I 7M A XztlH ( I , J I 
IFIHM1.J) .LT.ZM1N)ZKIN=HHIT,J> 

3G CONTINUE 

IF CZMAX.GT .2DlGIZ M AXr2t'IG 
IFI2TIN.LT. 2LITIZ**IU = 2LIT 

HEX v DETEPMIHE BOTTOM STARTING VALUE FOR CONTOUR LOOP 
PVAL zSAMCCN 

32 IFIPVAL.GT .2MINTG0 TO 34 
PVALz"VAL*CONlNC 
GO TC 32 

34 IFtPlAL-CGNINC.LT.ZMlNIGO TO 35 


123 


237 

iis 

2*C 

2 m 

242 

243 
2 1* 

215 

2 16 

§3? 

249 

25? 

25! 

m 

2 54 
2 55 
2 56. 
257 
25;? 
2 59 
2 6T 
261 
262 
261 
26M 

265 

266 
267 
26? 
269 
27 r 


PVAL=PVAL-CONINC 
60 TC 34 

35 XPP=C. 

YPP=C. 

NUNLVX-1 

N2=NIVY-1 

CONTCUR LOOP STARTS BELOW AT STATEMENT 36 
THIS LOOP DETERMINES WHERE TO START A NEW CONTOUR. THEN CALLS 
StPROUTINE CONLIN TC ORAU EACH CONTOUR. EXIT IS MADE WHEN 
ALL CONTOURS COMPLETED. 

THERE ARE 2 SCANS FOR EACH CONTOUR VALUED FIRST WITH VARIABLE OUTS AS 
FALSE SELECTS ONLY CONTOURS ENTERING GRID FROM OUTSIDE EDGES. 

SECONO SCAN WITH OUTS TPUE SELECTS REMAINING INNER CONTOURS. 

ISCST TO PLOT 


STARTING POINT. CLO! 


TO PLOT PEN POSITION IS SELECTEO IN EACH CASE. 


36 


37 

38 


6CC 


IF|P\AL.GE.?MAX)G0 TO UO 
OUTS =. FALSE. 

DO 31 1=1, N1 
DO 31 J=1,N2 
R5RIC(I,J)=0 
D 2=9 5999 9 . 

DO ICO 1=1, Ml 
DO ICO J=1,N2 
IF(OLTS)GO TO 6P0 

IF(I .EO.l.OR.J.EQ.l.OR.I.EO.Nl.OR. J.EQ.N2IG0 TO 600 
GO TC ICO 

IF(RCRIDII.J).EG.1)G0 TO ICO 
IFCRCRIOd.Jl.GT.l.ANO.OUTSfGO TO 100 
II = NE*4d 
J J = N EY4 ♦ J 


271 


HEN! 1>=HHCII,JJ» 

27? 


HEN»2»=HH(II,JJ*1J 

27? 


HENI 2!=HH( 11*1 , JJ*1 J 

27« 


HEM 4>=HHIIId , JJ> 

275 


DO 4 CO K = 1 ,4 

276 


IF(AE5IHEMK)-PVAL).GE.PV0L)G0 TO 400 

277 


IF tHENIK ) GE.PVAL )HEN C K 1 =PV AL ♦PVOL 

27* 


IF IHENIK KLT.PVAL IHEN CK)=PVAL -PVOL 

279 

400 

CONTINUE , 

26T 


IF (OLTSIGO TO 250 

28! • 


NENN =1 

2P2 


IF (I .EQ. 1. AND. HEN (D.GT.PVAL. AND. HENI 21 .LT.PVALIGO 

283 


NENN :? 

284 


IF II .rc.Nl .ANO .HEN(3I.GT.PVAL.AND.hEN(4I.LT.PVAL>GI 

235 


NENN=4 

ZE6 

* 

IF ( J .FQ.1.AN0.HEN(4).GT.PVAL. AND. HENI 1 ) .LT.PVALIGO 

2 87 


NENN: 2 

28? 


IF! J .EO.N2.ANO.HEN12I.GT.PVAL.ANO.HENC 3» .LT.PVAL1GI 

209 


GO T C 60? 

29'! 

250 

DO 4 10 K = 1 ,4 

29 1 


I 1 = K 

29? 


I2 = K <1 

29? 


IF1K .EC. 4112 = 1 

29'» 


1FIHENI1D.GT.PVAL. AND. HENII21. LT.PVALIGO TO 408, 

295 

410 

CONTINUE 

29 6 


GO TC 602 

29 7 

4C8 

NENN :K 

29? 

bCl 

IFIR (PIO(l.J) .EO.O.OR.OUTSJGO TO 640 

2 99 


11=PG°I0(1«JI/10 

300 


I 2=RCPI0 (I, JI-109I1 « . 

3 C 1 


IFII 1.EO.NENN.OR.I2.EO.NENN1GO TO ICO 

3C? 

640 

GO TCI 340,342,344 ,346) , NENN 

3C* 

6D2 

IF IRCR1D (IfJl.EC.OlRGRIO I I » J) =1 

3C4 


GO TC ICO 

3C6 

340 

Y = YG RIO* 1 FLOAT l J- 1 > « t P VAL -HEN Cl ) ) / IHEN C 2 1 -HEN d ) ) ) 

3C6 


X=XGRID*FLCAT 1 1-1) 

3C7 


GO. TC 45 

3C» 

342 

X=XGRTD*I FLOAT d -11 «»PVAL-HENI2> )/ 1 HE N 1 3 ) -HEN 1 2 ) ) ) 

3C9 


Y=YGFTO*FLOATIJ) 

31? 


GO T C 45 

311 

344 

Y =YG RIG * IFLOAT 1 J - 1 ) ■♦ IP V AL -H EN 14) ) / IHEN 131-HEN 141)1 

31? 


X=XGRIP*FL0AT|I1 

313 


GO TC 45 

3 14 (] 

3.46 

X = XGFIU* ITLOATlI-l ) ♦ IP VAL -HEN 11 ) ) / IHEN < 4 ) -HEN 1 1 1 ) ) 

315 


Y=YGRID*FL0AT(J-1 J 


TO 601 
I TO 601 
TO 601 
P TO 601 


S X 


X 

! S 


X 
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316 

317 
31* 
3 1 * 

320 

321 

322 


95 

323 



32* 

32' 

326 

327 
3 2* 


ioa 

3 2* 
332 

C 


331 


101 

33? 

C 


333 

33* 

C 


335 

C 


336 

C 


337 

c 


33* 

339 

C 


390 
39 ! 
392 


las 

39* 


612 

39* 

395 

c 


396 


110 

397 

c 

3 M* 

c 


399 

351 

351 

352 

c 


353 

359 

355 

356 

357 


t 

35* 

359 

360 


115 

361 

36? 


116' 

t 

363 

36* 


120 


IFtD .GE.D21G0 TO 100 
02=0 

NENT EP=NENN 
LCLXrl 
L CL Y : J 
X T T - X 
YTT = Y 
CONT 1NUE 

IF<D7. GE. 999990. 1G0 TO 105 

IF<R CRIDCLCLX,LCLY».E0.01RGRIDtLCLX,LCLY>=l 
X =XT 1 
Y=YT T 

WRITE (6,101 IPVAL»OCLABS,OUTS 
FORHATT IX ,E13.5,2L1 3» 

AEXT CALL SUBROUTINE CONLIN TO ACTUALLY ORAU CONTOUR WITH VALUE PVAL 

CALL CQNLIN(HHfINI»lN2tRGRltl»IN3»IN9) , 

NOW GO BACK TO INNER LOOP TO SEE IF THERE ARE OTHER FVAL CONTOURS 
TO EE DRAWN. 

GC TC 30 

I F ( 0 ITS J GO TO 612 
OUTS =. TRUE. 

GO TC 39 

PVAL :PVAL*CONINC 

I ACRE MENT CONTOUR ANO GO TO TOP OF LOOP FOP NEXT CONTOUR 
GC TC 36 

CALL PLOT(C. ,0. .-31 

NO k TO DRAW THE OUTLINE OF INTEREST APEA BY CALLING 0UTL1N 

A 1=0 X ! >X SCALE/2. 

CALL PLOT! -Al.-Al »-3) 

CALL 0UTL1N ( I N . JN ,K N , N CN , DX , D Y , XS C ALE » YS C A LE , 

CCOSF ,SINF,YX t YYl 
CALL PLOT t A 1 , A 1 » - 3 J 
IPAP =IMAP*1 
IRECCY=IRECCY«] 

WRIT E (6 . 1 15 1 IHAFflRECl *IRECCY 

F0RMAT(/,10X,11HC0NT0UR MAP.I3.29H BEGINS WITH PLOT RE CORD , 1 3 , 1 9H 
2AN0 ENOS WITH. I?) 

WRITE (fa, 116JM0S1N C , VALLIN »HAXCfiO, WHA T 

F0RHAT(12X,21HM0ST LINE INCREMENTS .IS.12M ON CONTOUR f F10.2 v /*I2X 
?.\ 12HF0ST SaUAPES,m»12H ON CONTOUR «F10.2t/> 

RETURN 

END 
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33 
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11.C0NLIN CL 
SliBR 


COMM 
2rpp, 
3L CLX 
4 N MX 1 
50 OLA 

0 XME 
2C0R0 

1 ME 
LOGI 


1 CREATED ON 27 AUG 79 AT 21:35:06 
CUT1NE C0NL1N (HH, INI, IN2 ,PG»IO .1N3.IN4 ) 

CN /STRCON/SHHI,SMWI,X,Y,XGRI0,YGRlD,CUT0F,SQHI,S0WI,THAX, XPP, 
CGIGtU, V.NX'UX t jn00,NUVX,NUVY f Y ORTH, SOUTH. EAST ,UEST ,CL I T.ceiG, 
,LCLY,INCR0S,0INC,CL0SIT,PVAL,PV0L,NENTER,HINUK,NHX1,NMY1, 

1, NM Y 1 1, M0S1NC. VALLIN , HINC » M AXCRD, UHA T,LD A SH1,LDASH2, DASHER, 
5S.0UTS 

FSI0N HH (I N 1.TN21 ,CIDE <4,21 .XXPLOT <275,21 ,HAX(4I,LEXE( 41, 
(400,21 .HIPPS (4001 
GCR RGRIDt IN3 ,IN4 I 

CAL INCS.OOLABS ,D ASHER, CLOS, 00 TS.OASHIX 


THIS SUBROUTIi E IS CALLED TO ORAM EACH INDIVIDUAL CONTOUR 


I 

DASH 

LABL 




.S 
YMAX 
X MAX 
NPNS 

iGpl 

NHAR 
NSOF 
NUGG 
XX = X 
YV = Y 
XBIG 
Y9IG 
L2X = 
L7Y = 
I PER 
X0=0 
Y D = C 
TOtr 
HYPT 
N COR 
CLOS 
GO T 


F OOLASS ENTERS AS TRUE, LABEL COUTOURS WITH HEIGHT HIMJH 

IX-D ASHER 

IT-9 

CLABS1LABLIT=0 

-.FALSE. 

:-9. 

--9 . 

T=NENTER 
CT = 2 

C=L0ASH1 
1=LDASH2 
= 0 


:xx 

=YY 

LCLX 

LCLY 

= 2 


C. 

C=5°* 

:. FALSE. 
C 400 


END SETUP. BEGIN LOOP THAT PICKS EXACT STRAIGHT LINE SEGMENTED TRAVERSE 


250 


251 


I F ( N 
WRIT 
FORM 
SHUT 
IH 

wx 


252 


701 


700 


400 


GC T 
NCOR 
HYPT 
HIPP 
CORD 
CORD 
XD = X 
YD = Y 
IF (N 
I F ( N 
IF(N 
I F ( N 
IF (L 
IF (L 
I F ( L 
2. OUT 
GO T 
CLCS 
I F ( L 
GO T 
NENT 
I F ( N 
XBIG 
VBIG 
NUMO 
0X1 = 
I F ( 0 
I F (0 
0V1 = 


C0RD.LT.4C01G0 TO 252 
E(6,251 INCOPO.PVAL 

AT(/,2X,I5,14H SQUARES LINE , F 10 . 5 , 2X , 7 HSHUTO FF 1 
CFF MESSAGE HERE INDICATES THAT THIS COM OUR CROSSES MORE 
AN 400 GRID SCUAREs. ARRAYS CORD AND HIPPS ARE TOO SMALL. CONTOUR 
IL BE CUT OFF AT SQUARE 400. CURE IS TO ENLARGE ARRAYS 
AND ASSOCIATED CUTOFF CHECK STATEMENT ABOVE. 

C 730 
C = NCORC ♦ 1 
C'T=HYPTOT+HYPE 
S1NC0RD J =HYPE 
(NCORO , 1 l=XXSO 
INCORD, 2|=YYSQ 
C*XXSO 
C ♦ Y YSC 

EXET.L0.1)L7X=L2X-I 
EXET.E0.31LZX=L7X*1 
EXET.E0.21L2Y=LZY+ 1 
EXET .E0.4 1L2Y=L7Y-1 
2X.LT.1.0R.LZX.GE.NUVX1G0 TO 73C 
2Y.LT.1.0R.L2Y.GE . NUVY 1G0 TO 730 

2X.E0.LCLX.AMD.LZ* .E Si .L CL Y . ANO . SOR T tXO*XD*YD*YO 1 .L E .CL OS IT . ANO 
5.ANO.NCORD.GT.31GO' TO 7qi 
C 700 
:.TRUE . 

ablit.eo.oilablit=-i 

C 730 

F.P=NE X ET ♦ 2 

FXET.GT.2)NENTER=NEXET-2 
: X I K 0 • 

=Y 1 NO 
IT=0 

XBIG-XGPIO*rLOAT(LZX-l> 

Xl.LT. 0.10X1=0. 

XI. gt . xgri d iox 1 =XGKID 
YBIG-YGRI0*FL0AT(IZY-11 


126 




79 
' EC 
61 
62 

83 

84 

85 
t(> 
8 t 
88 
89 
9.1 

91 

92 
S3 

94 

95 

96 

97 

98 

99 
1C,0 
lO'l 
102 
103 
1C4 
105 
1C 6 
1 07 
1C8 
109 

i m 
in 
1 12 

113 

114 
1 15 
I 16 
i *7 
1 18 
119 
1 20 
121 
122 
123 

III 
126 
1 2 7 
1 25 
129 
1 30 
121 
1 32 
123 
1 34 
1I C 
136 
1 27 
1 3 » 
12« 
140 
14 1 
14? 
143 
1 44 
14 5 

146 

147 

1 4 A 

149 

150 

151 

152 

153 

154 
1 65 

156 

157 


IF(01t,LT,0«TOYl=0« 

IFCO M.GT. YGRI010Y1=YGRID 

I=LZX*NMX 1 1 

4=L2Y*NMY11 

S 1ART EXIT POINT LOOP 


HAX ( H-HHt I, J) 

HAXI 

H AX ( 2)=HH(l6l f J«l) 

HAX( 4>=HHIl«lf J> 

00 4 Cl 11 = 1.4 

IF(AFS(HAX(II)-PVALT = GE.PV0L»G,0 TO 401 1 

I F ( H AX ( II) «GE,PVAL) MAX (III ZP V AL *P V OL 
IFtHAXdll .LT.PVAL1HAX »1 1 1 =PVAL-P V CL 
4C 1 CONT 1NUE 
NEXE 1=0 

DO 4 25 1 11 = 1 ,4 
C IDE IT 1 1 1 1 1 = -l • 

C IDE I II 1 * 2 1 =-l « 

11 = 1 II 

12 = 1 11*1 

1F(I II. EO. 4112=1 

STATEMENT BELOW SELECTS SIDES THAT HAVE EXIT POINTS 


IF(HAX(I II .LT.PVAL.AND .HAX C T 2 > . GT . P V AL 1 GO TO 420 

GO TC 435 

420 NUMO LT = NUMOUT-» 1 

I F ( N LMQU T .50.1 >NN1 = III 
l F ( N l MOU T • £0 ,2 ) NN2 = I II 
GO TC(422, 424,426 , 428 1 , III 
4 22 0Y2= ((PVAL-HAX ( 1 1) / (H AX ( 2 I -HAX ( 1 ) 1 >*YGRIO 
0X2= C. 

GO TC 430 

424 0X2= MPV AL-HAX (2 1 1/ (HAX(3 1-HAXI2I) )*XGRID 
0 Y2= YGR 1 0 
GO TC 430 

426 0Y2= ({PVAL-HAX ( 4 1 I / (H A X ( 3 I -HAX ( 4 I I HYGRIO 
0X2=XGRI0 
GO TC 430 

428 0X2 = ((PVAL-HAX C1J )/(HAX(4)-HAX( 1J ) ) *X GR ID 
0Y2=C. t 

430 C IDE (111,11=0X2 
C IDE (III ,2)=CY2 

435 CONTINUE 

UNLESS WE HAVE NULL POINT SOUARE, NUMOUT SHUO BE t WITH OUT AT 0X2, 0V2 
IF(NLMOUT.NE.l 1G0 TO 432 
NEXE T=NN 1 
GO TC 445 

432 IF(NIM0UT.EQ.2)G0 TO 438 

431 WRITE(6,436»L2X,L7Y, NUMOUT, PVAL.XBIG.YBIG 

436 FORM AT(/,2X,10HNO WAY OUT , 5X , 3 I 1 0 , 3F1 Q . 2 , / ) 

GO TC 500 

BEGIN SECTION THAT DETERMINES PROPER PATH THRU GRIO SOUARE 
CONTAINING HYPERBOLIC CONFIGURATION, C2 ENTRY AND 2 EXIT SI0ES3 

438 IF(PGRID(L?X,L2YI .GT.l jr.0 TO 442 
X10=CIOE (NN1 ,1 1-0X1' 

VlD=CI0E(N«t,21 -0Y1 
D AA = SQRT (XID*XID-*VID*YIDI 
X ID=CIDE(NN2,1 T-0X1 
Y10=CIDE (NN2.2 T-0Y1 * . 

089= SORT (XI0*X1P«YID*Y10 J 
IF(D6B .LT.DAATGO TO 440 . 

4 39 0X2 = CTDE(NN1,1 ) 

0Y2=CI0E (NN1 ,2) 

NtXE T = NN1 
GG TC 414 

440 0X2-CI0E(NN2,1 ) 

0 Y2 = CIDE (NN2 ,2 » 

NEXE l=t.N2 

414 RGRIC(L?X,L7Y1=10«NENTER*NEXET 
GO TC 445 

442 I1=RCRID( L7X,L2YI/10 

. i 

1 Fill , GT>0 « AND , 12 ,G T. 0 • ANC, 1 1 ,NE « 12»AN0,N ENTER ,GT ,U )G0 TO 417 
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ns 

160 

161 

162 

16? 

164 

165 

166 
167 
163 

169 

170 


ms 

416 

<417 


172 

176 

175 

176 

177 
1 7 P 
17° 
180 
18 1 
182 

1 e 3 
186 

195 
186 
187 
16 0 
1 8 0 
160 
1.5 1 
152 
193 

156 
155 

196 

157 

158 
155 

2 CO 
2C1 
202 
203 
2 C 6 

205 

206 
207 
2 0 s 
2C9 
210 
211 
21 2 
213 
216 

215 

216 
217 
2 IP 
2 19 
2 2 n 
221 
222 
22 ? 
226 

225 

226 
227 
2 28 
229 
220 
221 
2 32 
223 
226 

235 

236 


618 

419 

445 


397 

396 


730 


732 


734 


74 0 
76 2 

745 


747 

74e 

750 


751 


WRITE<6,4161LZX,L7Y,I1,I2,NENTER 

FORMAT l/,2X,12HBAD COL EXIT, 2X, 51121 

GO TC 500 

LEXE<1)=0 

L EXE 421=0 

LEXE 431=0 

LEXE (61 = 0 

LEXE <111=1 

^EXE 1121=1 

IF(L^XE*fl ) .'EO.O.ANO. Il.NE.NENirR. AND. CIOE( 11,11. GT.(-. 51. UNO. CIOE 
2(11, <>.GT.(-.5))G0 TO 419 
CONT WUE 

GO TC 415 ’ 

NEXE 7 = 11 
0 X2= CIDE ( 1 1 , 1 ) 

0 Y2 = CIDE ( 1 1 , 2 ) 

END HYPERBOLIC GRID SCUARE SECTION 
X INO=OX2*XGRID*FLOAT(LZX-1 1 
YIND=0Y2-»YGPI0*FL0AT(L2Y-11 
1F<RGRID<L7X,LZY> .£0.0 )RGRI0(LZ*£»LZY)=1 
XXSO =X IND-XR IG 

Y YSO :YIND-YBIG 

HYPE = SQRT ( XX SO *X X S C *Y Y SO + YYSO > 

1F1HYPE.GE. .0001. AND. HYPE. LE.CUT0F1G0 TO 396 

UP IT E (6 , 35 7 1L7X,L7Y,NENTER,NEXET,XBIG,Y0IG,XIMO,YINO,OX1,OY1,OX2, 

20 T2, >X SO, Y YSO, HYPE ,NENST , LCLX ,LCLY ,NCORO,XX »Y Y 
F CRH AT< / ,ZX f 4HHERE,4IlC,/ f 2X,UF10.5, / / , 2X , 4 1 1 0 , 5 X , 2F 1 2 .6 , // ) 

GO TC 500 
GO TC 250 

LINE SEGMENTED CON TOUR ' TR A V ER SE NOW COMPLETE. NEXT, DIVIDE THIS 
TRAVERSE INTO NR INC ECUAL SEGMENTS. THIS NUMBER IS FUNCTION NOT 
ONtY OF LENGTH OF TR AVERS r , BUT CF INCOMING ARGUMENT SMOOTH, WHICH 
CONTROLS DEGREE OF SMOOTHING DESIRED. 

IF (NCORD .LE . HA XCR D 1G0 TO 732 

M A X C 5P=NC0RD 

WHAT=PVAL 

NPINC=HYPT0T/HINC*1. 

HANC IHYPTOT/FLOAT (NRINCI 

IF ( . FOT.CLOS. AND. NCORD. GT.l. AND. NRINC.GT.l 1G0 TO 736 
IF(CLOS.ANO.NCORO.GT.3.ANO.NRINC.GT.21GO TO 734 
GO TC 5G2 ' 

NEXT, SET UP ENTRY ANO EXIT SLOPE DATA FOP FIRST SEGMENT BEFORE 
E HERING MAIN CURVILINEAR INTERPOLATE AND PLOT LOOP. 

XBEG =XX 
Y3EG =YY 

IF(NFINC*HANC.LT,.751DASHIX=. FALSE. 

H=0. 

X END =XX 

Y END =YY 

00 7 40 1=1, NCORD 
IF(H-*HIPPS(I1.GE.HANC)G0 TO 742 
H=H*HIPPS (I ) 

XENO =XENO«CORO(T , 1 1 
YEND =YEND + CORD(I ,2) 

GO TC 765 

X = (HANC-H1 /HIPPS Cl J 
X END =X-;ND«X*CORD ( T , ! ) 

YEND=YEN0-*X*C0RDII,21 
XXSO =X£NO-XREG „ 

Y YSO = YENQ- YBEG • ' ; 

HYPE =SORT( XXS0*XXSQ«YYS0*YY50 1 
IFCHVPE.GE ..00C1 1G0 TO 7S0 

WRITE (6 ,74 8 JXRCG , YBFG , PV AL ,H YPE 
F0RMAT(/,2X,14HHYPE TOO SMALL ,2X ,4F 1 2 .6 1 
GO TC SOU 
C ANG =XXS 0/ HYPE 
SANG :YYSO/HVPE 
HYPM =HYP£ 

IF ( C LO S 1 GO TO 751 
COSBAC=CANG 
S INB AC = S ANG 

GC TC 759 \\ 

X B = X > ■ J ‘ ■ - 

YB-V Y 
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V 1 


237 
23“ 
239 
2 90 
2*41 
2 92 
2*43 
2*44 

295 

296 

297 
2 9* 

294 

ill 

252 
2 57 

18 

256 

257 
25“ 
•25“ 
260 
261 
262 
263 
269 

265 

266 
267 
26“ 

269 

270 

271 
27? 
273 
279 
2 75 

276 

277 
27“ 
279 
230 
2 € 1 
23? 
2 37 

2 39 

235 

236 

237 
239 

289 

290 

291 

292 
29J 
299 

295 

296 

297 

298 
259 
3C0 

3 C 1 
30? 
3C7 
3C9 
3C* 
3C6 

307 

308 
3 C° 

m 

31? 

313 

319 

315 


h=o. 

DO 753 I=1,NC0RD 
JsNCCRO-I*! 

IF(H<HIPPS(J>.GE.HANCJGO TO 755 
H = H«HPPS(J1 
X PsX E-CORO ( J 1 1 ) 

75 3 YRsVF-CORDIJ,2 1 
GO TC 757 

755 X = |H/!NC-H!/HIPPSIJ» 

xe=xe-x*coRO< j ? n 

Y9=YP-X*C0R0«J,2> 

757 XXS07X5EG-XB 
YYSO iYBEG-YP 

HYPE :S0RT4XXS0*XXS0*YYS0*YYS0 I 
1RHYPE.LT. .C0011G0 TO 7 97 
S 1NB AC=Y YSC/HYPE 
COSE! #C=XXSO/HYPr 

TS 9 A = k S 9 AT*“l 2 (SANG*C 0 SBAC-CANG*SINBAC ( CANG*C 0 SBAC«SANG*SXNB«Cl 
SA=§ 1 N(A) 

CA=CCS(A) 

SENT :SINBAC*CA-«COSBAC*SA 
CENT :C 0 SBAC*CA-SIN 3 AC*SA 
ENTI S=ATAN 2 f SENT, CENT! 

SSENT=SENT 
CCEN TsCENT 

ENTER MAIN CURVILINEAR INTERPOLATE AND PLOT LOOP 

CO LUPE=1,NRINC 
IPE.NE.NRTNOGO TO 762 
LOS ) GO TO 760 
sSANG 
ICANG 
C 200 
SSSENT 
ACCENT 
C 200 
:XX 
:YY 

:HANC»FLOAT 4 LUPE + 1 ) 

69 I ”1 .NCORD 

<HlPPSin.GE.ZANC 160 TO 766 
HPPS ( 1 ) 
rXIHO<CORO(T , 1 > 
tYIND + CORO < I » 2 I 
C 768 

P\C-H>/HIPPS(T» 

-V IND* X*CORD ( T v 1 1 
=Y1ND“X*C0RDII,?) 

:X 1ND-XEN0 
:YIND-YEND 

=SORTIXXSO*XXSC4YYSQ*YYSOJ 
YPE.lt. .C 0011G0 TO 797 
CR=YYSQ/HYPE 
CR=XXS3/HYPE 
CPsHYPE 

<ATAN 2 tSlNF 0 R*CANG-C 0 SF 0 R*SANG,C 0 SF 0 R*CANG«SINF 0 R*SANGl 
INI A) V 

CS < A | 

:SANG*CA4CANC*SA 
:CANG*CA -SAf!G«S* 

-ATAN21S0UT*C0UT> 

FYPM • . 

Y°.GT.OINC )G 0 TO 999 

CNO.LI .WEST .OR.XEND.GT.TA ST. OR. YENO.LT. SOUTH. OR.YEND.GT.YORTH I 
C 790 

PCS 1 GO TO 996 
- .TRUE . 

PLOT (XBEG-UEST » YB EG-SCUTH. 3 1 
ER 

7SHIX;*H0.1.E0.2I1:I0PL0T 
PLOTIXEND-UEST.YEND-SOUTH, 71 
-MUGG ♦ l 
TOT 4HYP 
C 790 


76Q 

762 


764 

766 

768 


200 


446 


DO 8 

1 F (L 
I F ( C 
SOUT 
CCUT 
GO T 
SOUT 
COUT 
GO T 

X 1ND 
YINO 

2 ANC 
H=0. 
DO 7 
IF (H 
H = H* 

XI NO 
YIND 
GO T 
X=(Z 
XIND 
YIMO 
XXSP 
YYSO 
HYPE 
I F (H 
SINF 
COSF 
HYPF 
A - • 5 
S A-S 
C«:C 
SOUT 
COUT 
EXET 

HYPS 

lEIS 

2G0 T 
I F C I 
INCS 
CALL 
I = IP 
I F < 0 
CALL 
NUGG 
TOTS 
GO T 


BEGIP SNAKE INTERPOLATION FOR SEGMENT 
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316 

317 

315 

32f 

321 

32? 

312 

325 

326 
27 


II 


329 
3 30 
331 
33? 
3 33 
33“ 

335 

336 

337 
33? 
33“ 
340 

m 

3?3 

344 

345 

346 
3“7 
34? 

349 

350 

351 
35? 

35 7 
35“ 

355 

356 
.357 
353 
3 5° 

360 

361 
36.? 

36 3 
3 6“ 

365 

366 
36? 
36 3 
3,69 

370 

371 
3 7? 
377 

374 

375 

376 

377 
3 7 3 
379 
389 
381 
3 8? 
3 H 3 
3 ?4 
3 35 

386 

387 
38? 
389 
3 9 
39i 
39? 
39? 
394 


ENTIR AND EXET ARE TRUE ENTRY AND EXIT DIRECTIONS AT ENDS OF SEGMENT 
CSMKELIKE INTERPOLATION IS MAOE FOR FIT BETWEEN 2 ENO DIRECTIONS] 
SENT AND CENT ARE STNE AND COSINE OF TRUE ENTRY ANGLE 
- - ?E SINE AND COSINE OF TRUE EXIT ANGLE 


449 


450 


454 


453 


SCUT AND COUT ARE 


SANG AND CANG ARE SINE AND COSINE OF STRAIGHT LINE ENTRY/EXIT CONNECTOR 

GEGIA SECTION THAT INTERPOLATES AND PLOTS THRU SEGMENT 

S=SeV'T*CANG-CENT*SANG 

C-CE M*CANG+SENT*SANG 

Cl=t Z.*ATAN2tS,C> >/HYP 

S ING=SANG*C-CANG*S 

CING-CANG*C»SAhG*S 

S=50LT*CING-C0UT*SIMG 

C=COIT*CING«SOUT*SING 

C2=t Z.*ATAN2 »S,C 1 l/HVP 

T X-X EEG 

TY=YEEG 

N INC :G 

TYPr-CBIG 

HYPMAX=HYP-CLIT 

H 25= ,25*HYP 

TYP=TYP*OINC 

Dl=TYP 

IFID 1.GT.H25 )D1=H25 
D2=TYP-H25 
IF10Z.LT. C. 102=0. 

SING:FNTIR-C1*TYP4C2#( D2-D1J 
TX:T>«0INC*C0S(SING1 . 

TY=TY*QINC*SIN(SING1 


E AD SNAKE INTERPOLATION SECTION— -TRY ANO FIGURE IT OUT AND GO NUtS- 
NEXT STORE POINTS THRU THIS SEGMENT FOR FINAL ADJUST AND PLOT 

IF1NIMC.LT.2751G0 TO 453 
WRIT E<6, 4S41PV Al, XBEG, YBEG,*ENO, YEND 
FCRH(7|/,2X,12HNINC SHUTOFF ,2X , 5F 1 2 . 3 J 

IF St-UTOFF MESSAGE RECEIVED HERE, ARRAY XXPLOT IS TOO SMALL. 

FOR INFREQUENT MESSAGES, DONT WORRY ABOUT IT, SINCE LACK OF 

CLOSURE IS ADJUSTED OUT. IF MESSAGE PERSISTS, EITHER INCREASE 
PLOT INCREMENT LENGTH OR SIZE OF XXPLOT. 

GC TC 455 > 

NINC :NINC-» 1 
XXPLCTlNINC,l)-TX 
XXPLCT(NINC,2)-TY 
IFITYP.LE.HYPMAXIGG TO 450 

AOJLST FOR CLOSURE ERROR, THEN PLOT CURVE ALONG THIS SEGMENT. 

4 55 XER = (XENO-XXPLOT 1 NINC, 1 ) J/FLOAT ( N INC 1 
YER = CYEND -XXPLOT 1 N INC, 21 ) /FLOAT! NINC) 

U = G. 

v=o. 

NUNC -0 


BECTN SEGMENT PLOT LOOP— —DASHED OR SOLID CURVES- 
SU f ROUTINE ENDER IS CALLE] TO LABEL LINES 


DO 6 10 1 = 1, NINC 
U=UOER 

V =V« YCR 

X=XXFLOT (I ,1 l + U 

Y =XX FLO T ( I ,2 ) ♦ V 

IFtX.LT.UEST.OR.X .GT.EAST.OR.Y.LT.SOUTH.OR.Y.GT.YORTH)GO To 608 
I F 1 1 ACS1G0 TO 603 
INCS :. TRUE . 

I Ft I FER.E0.21CALL PLOT tXBEG-WEST , Y6EG- SOUTH ,3 1 

603 X PP= > 

YFP= Y 

XUX= XPP-WEST 

YUY=YPP-SOUTH " 

IFtL /“ITT.GT.OinO TO 60« 

I F tl A9LTT.EO.01CALL ENOER t XUX , YU Y , PV AL , 1 » 

LABL IT = 1 

604 IF(0<SHIX.AND.IPER.EQ.2)G0 TO 615 
CALL PLOTCXUX.YUY.IPER) 

GC TC 699 

6 15 CALL PLO T I XUX , TUY , IOPLOT > 
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39 ? 

39£ 

397 

398 

399 
9 CO 
90! 
9C2 
9 C 7 
9C9 
90S 
9C6 
9 C 7 
9 0 ? 
909 
9 10 

911 

912 
917 
9 19 
9 15 
9 16 
9 17 
91? 
9 19 

920 

921 

922 
927 
929 

925 

926 

927 
926 
929 
9 30 
931 
9 72 
937 
9 39 

935 

936 
9 37 
9 3? 
9 3« 

990 

99 1 
9 9? 
99 3 
999 
995 
9 9 6 
997 
9 9? 
999 


IF1ICPL0T.EQ.3JG0 to 630 
NPAR C = NHA RD-1 
IF1NHR0.GT.01G0 TO 609 
I CPL CT=3 
NHAR C=LDASH1 
GO TC 609 
630 N SOF T=NS0FT-1 

IF (N S0FT.GT.01G0 TO 609 
IDPL CT=2 
NSCF 1=L 0ASH2 

609 IP6R:2 
NUNC :*IUNC*1 

IF! . F0T.D0LAES.0R.YUY.LE.YMAX1G0 TO 6 1C 
Y MAX lYUV ^ 

X“AX = XUX 
GO TC 610 
608 1 P£ R " 3 

1FIL fBLIT.NC.llGO TO 610 

CALL ENDERCX-WEST,V-SOUTH f PVALt 1 » 

LA3L 1T=0 

610 CONTINUE 
C 

C E70 ADJUST AND PLOT SECTION 

C 

NUGG :NUGG+NUNC 
TOir T0T*0INC«FL0AT(N'UNCJ 
IF1TCT.LT. TMAX1G0 TO 790 
WRITFC6 f 962)PVAl, TMAX 

962 FCRM7Tf/,2X,I6HREACHE0 TMAX ON ,2F12.9) 

GO TC 500 

790 IFIL LPE.EO.NRINC1GO TO 800 
HYPM -HYPFOR 
SENT iSOUT 
CENT iCOUT 
ENTIR=EXET 
SANG iSINFCR 
CANG ICO S FOR 
XflEG :XENO 
YEEGiYENO 
XSNQ IXIND 
TEND IYINO 
800 CONTTNUE 
C 

C E 70 MAIN CURVILINEAR INTERPOLATE AND PLOT LOOP 

C 

5 CO I F 1 . 70 T.CLOS.OR*. N’OT.OOLABS.OR.YMAX.LT. .01)00 TO SCI 
XPPiXMAX+REST 
YPPr \ maX-*SOUTM 

CALL ENDER 1 XM A X , YM A X,P V AL .21 

501 IF 1 . 70T .CL OS .AND.LAPLI I .EC .1 1CALL ENDER fXUX ,YUY ,P VAL * 1 1 
1F1UIGG.LE.M0SINC1G0 TO 502 
M0SI7C=NUGG 
VALL JNZPVAL 
SC2 RETURN 
ENO 



*FLOW( 1 I.ENDEP ELT CHEATED ON 8 HAT 79 AT 10:17:51 


l 


SUBROUTINE ENDER(X,Y,PVAL t ICO) 


T 



DIMENSION 0(3) 

4 

C 



C 

C 


T US SUBROUTINE IS CALLED TO LABEL CONTOURS 

t 

c 



7 



DM = SCRT((X-XLAS)*(X-XLAS)MY-YLAS)*(Y“YLAS)) 

a 



IFI09.lt. 2. *HONUM. OR. HONUM .LE .G . )G0 TO 25 

0 



1F(I CO. EQ . 2) GO TO 14 

ir 



0(11 :ABS (Y-HOOHI 

u 



0(2) :4BS(X-W00E) 

l? 



0(3) =ABS(Y) 

17 



K - 1 

19 



OM=AES(X) 

IS 



DO 1C 1=1.3 

IF (0 (I) . GE.OMJGO TO 10 

16 



17 



DM = D (T) 

1 B 



K = 1 ♦ 1 

19 


13 

CONT 1NUE 

Z‘1 

2! 


12 

GO TC(12,14, 16,18) ,K 
Y AC= -HONUM/2. 

2“> 



1 = 1 

23 



GO TC 100 

2« 


14 

YAD= .02 

25 



1=2 

26 



GO TC 100 

27 


16 

X A0= .02 

29 


YAO= -HONUM/2. 

2 1 * 



GO TC 20 

20 


18 

YAO= -H0NUM-.02 

31 



1=2 

32 



GO TC ICC 

33 


20 

X AD= X + XAD 

29 



YAO=Y«YAO 

3' 



CALL NUMBE P (XAO,Y AO, HONUM , P V AL , 0 . , *2 ) 

26 



CALL PL0T(X,Y,3) 

37 



XLAS =X 

23 



Y LAS = Y 

29 


25 

RETUFN 

9? 


1 GO 

X A0= - . 754H0NUM 

41 



IFIPVAL.GE.9.5.0R .PVAL.LE . ( - . 5 > ) X A D=X AO -HONUM 

42 



1F(PVAL.GE.99.5.0R.PVAL.LE. (-9.5) ) XA 0 =X AO -H ONUM 

43 



IF IP VAL.GE. 999. 5. OR .PVAL.LE. (-99.51 >X AD=XAO-HONUM 

44 



1F(I .E C . 2 ) X A 0= . 5 •* X AD 

45 



GO TC 20 

46 



ENO 
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f» 
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11. FIT FOR CFEATED ON 9 DEC 79 AT 10:02i39 

C ********* **** ********************* ******************** **************** 
C FITS A FARADOLA TO THREE POINTS, USED IN MAKING PLOT. 

C ********* ************************************************************* 


SUBRCUTINE FIT (21 ,Z2,Z3,E1,E2 ,E 3, A ,P,C I 

0 = lZl**2>*(22-Z31-Zt*U2**2-Z3**2>*Z3*lZ2**2J-2Z*<Z3**2l 
A = <E I*<Z2-Z3I-Z1*(E2-E3)«C2 ! »Z3“E3*Z21/D 

B = t * 2!**2>'ME2-E3»-E1*IZ2**?-Z3**2I*E3*(Z2**2>-E2*I23**2I I/O 
C = <( 71**2 1*<Z2»C3-23»E2I>Z1*(F.3*<Z2**2)>C2*<Z 3**2 I I«E1*<Z3*(22**2> 
C-Z2* IZ3**2II!/D 
RETUFN 
EKO 
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• FLOW C 1 1 . VECT FOR CREATED ON M oEC 7S AT 1I:3T:I9 „ 

C*****TO DRAW VELOCITY VECTOR BY CALLING CALCOMP SUBROUTINE AROMO 
SVJBRCUTINE VECT(AT,AAI ,AJ t AAJ,ARHIN»ARHAXfCOSF.SINFI 
VU = . ;*S0RTIUAI-AII**2«<AAJ-AJ>**2) 

YW = A FAX1 <ARBIN t AMINlCARHAX,YUJ) 

B 1-A I*COSr «AJ*SINF 
B J=-AI*SINF«AJ*COSF 
BBI= AAI*C0SF«AAJ*SIMF 
BBJ s *AAI*SINF*AAJ'*COSF 
CALL AROHO (BI«BJfBBIiBBU«YWtC*tl2) 


IP 

11 


RETURN 
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•FLOW I 1 1 .CAP TNI ELI CREATED ON 19 SEP 79 AT 10:25:29 
! SUBROUTINE C AP TN 1 < P 1 , P2 ,P 3 . P9 ,P5 ,P6 , Q 7 , 08 1 

2 C*+****URI1E COMMON HEAPING FOR EACH °L0T WHETHER TEMP ON VELOCITY****** 


T 

a 

e 

n 

7 

* 

n 


C*****C IMO MH DAY, YEAR } 3 NEEDS RESET***** 

CALL SYMROLtO. 8,6.70,0. 10, 25HTI*E I JUNE 2D, 1978): ,0.0,251 

CALL NUM6ER(9.C, 6.70, 0.10, PI, D.n,*l> 

CALL SYHR0L(0.8,6.5P,0.10,25HU1N0 SPEED (CM/ SEC 1 : ,0.0,251 

CALL NUMBER ( 9.0,6. SC , 0 . 10 ,P2 , 0 . 0 , ♦ 1 » 

CALL SYMBOLIC. 8, 6. 30,0. 13, 25HUIM0 DIRECTION (OEG/N I : ,0.0,251 

CALL NUMBER (9. 0,6.30, 0.10, P3, 0.0, ■•0) 

CALL SYMBOL(0.6,6.10,0.10,25HAIP TEMP ERATURE (DEG -C ) : ,0.0,251 

CALL NUMBER (9. 0,6. 1 0, 0 . 1 0 ,P 9 , 0 . 0 , ♦ 1 1 

CALL SYMB0L(0.8,5.90,C.10,25HDISCHARGE TEMP (DEG-C 1 : ,0.0,251 

CALL NUMBER ( 9. 0,5. 90, 0.10, PS, 0.0, »1) 

CALL SYMBOLIC. 8, 5. 70,0. 1C, 2SHDISCH FLOURA TE (CUM/SEC I : ,O.C,251 
CALL NUMBERI9.0,S.70,0.10,P6,0.3,+11 

CALL SYMB0L(C.8,5.50,0.10,25HLENGTH SCALE(1CM= X CM1: ,0.0,251 
CALL NUMBER (9. 0,5, 50, 0.10,0 7, 0.0, *01 

CALL SYMB OL(0. 8,5. 30, 0.10,25H VELOCITY SCALE (CM/SEC1 : ,0.0,251 

CALL NUMBER ( 9. G,S. 30, 0.10,08,0.0, *21 

RETURN 



•FLGWm.CAPTNZ SY* CREATED ON 11 SEP 79 AT 22:29:52 


1 

•» 

3 

A 

r 

6 

7 

« 

a 

10 

11 


SUBROUTINE CAPTn2(N) 

C«**«*URITE PLOT TITLE ON BOTTOM OP DIAGRAM FOR CALCULATED UV***9 
CALL SYM80L(1.C,-1.8,.1M,24HFIG SURFACE VELOCITY, .0*2* I 

SYMBOL! 1.0,-?. 2,. 11 .29HANCL0TE ANCHORACE BY MODEL ING , .0 ,29 I 
PL0TI-l,D,-2.5,3» 

PLOTI-l.O, ♦7.5,21 
PLOT t ♦£ .5 , -47.5 ,2 1 
PL0TM6. 5,-2. 5,21 
PLOT(-1.0,-2.S,2> 


CALL 
CALL 
CALL 

call 

CALL 
CALL 
RETURN 
ENO 
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*»"L0W ( 1 ) .CAPTN3 SYF CREATED ON II SEP 79 AT 22:31:55 
SUBROUTINE CAPTN3(NI 

C****VR1TE PLOT TITLE ON ROTTOH OF DIAGRAM ANO BLOCK IT***» 

CALL SYMBOL ( 1 • 0» -2 .0* • 19 * 29HF IG TEMPEPA TURE FROM IR, O.O, 291 

CALL PLOT<-l.O f -2.5,3) 

CALL PLOT ( *1.0»+7.5,2i 
CALL PL0Tl*6.5 f *7.5,21 
CALL PL0T(*6.Sf2.St2) 

REVuFN‘■ 0T, ■ l • 0, " 2 ■ 5,2, 


5 

t 

i 



•FLOU< 1I.CAPTM4 SY Y CREATED ON II SEP 7? AT 22:36:39 

1 StBR CUTINE CAPTNMSUMI 

2 C***« WRITE DEVIATION VALUE t FROM IR) ON ISOTHERM PLOT ******* 

7 CALL SYMBOL <0.8 « -0 .5 , . 13.23HDEVI A TION FROM IR TENP:,0.,23t 

• CALL NUMBER**. Ct-O.S, . 10,SUM,0. »*3 > 

5 RETURN 

6 END 
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*FLOU( 1 ) .CAPTN5 S Y K CREATED ON 11 SEP 79 AT 22:39:49 
1 S IJBR CUT I NE C AP TN5 ( N *M I DEW ) 

C**«**u RITE TIDAL STAGE AT THAT TIKE***** 
DIKE ASION MIOEU (41 
I ECO :MIDEW ( N ) 

CALL SYMBOL (0.8, -.7,0. 10, I6C0,0..4 ) 
CALL SYHBOLd.3f.7tC. 10 » 4HTIDE .0 . ,4 » 
RETURN 
END 


t 



1 39 


•HfS* fr, d iT « Mtp 


*flou 


ic 

11 


I1I.CAPTN6 SYF CREATED ON 11 SEP 79 AT 22:41:51 
SU8RCUTINE CAPTNb (N 1 
C*«***w RITE PLOT TITLE ON BOTTOM OF DIAGRAM FOR 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 
END 


CALCULATED UK**** 
SYMBOL! l.G,-l .A,. 14 ,19HFIG UU VELOCITY,. 0.19) 

SYMBOL! 1.0,-?.?,. 14 .29HANCL0TE ANCHORAGE BY MODELING , .0,29 ) 
PLOTC-l.C, -2.5,31 
PL0T!-1.0, ♦7.5*21 
PLOTI+6.5,^7.5,2) 

PLOT I *6. 5, -2. 5,21 
PL0TI-1.0,~2.5,2> 
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• FLOW I 1 J .CAP TN7 SYM CREATED ON tl SEP 79 AT 22:93:3b 

1 SIJ8R CUTINE CAPTN7 (N ) 

2 C*****wRIT E PLOT TITLE ON BOTTOM OF DIAGRAM FOR CALCULATED VU**** 

3 CALL SYMBOL Cl. C, -1*9* • 19 r 19HFIG VU VELOCITY* .0. 191 

9 CALL SY^BOLC 1.0.-2.2* . 19 ,29HANCL0TE ANCHORAGE BY MODEL ING , .0 ,29 > 

5 CALL PLOT (-1. 0,-2. 5. 31 

6 CALL PL0TC-1.0,*7.5,2» 

7 CALL PL0TI«6.5,«7.5,2) 

A CALL PL0U*6.5,-2.5,2> 

9 CALL PL0TC-l.Q,-2.5,2> 

1C RETURN 

11 ENO 


J 



mh» 


♦ FLOVHU.CAPTNa SYN CREATED ON 11 SEP 79 AT 22:HS:H3 
SUBROUTINE CAPTN8 f N I 

C*****U'RITE PLOT TITLE ON BOTTOM OF DIAGRAM FOR CALCULATED ELEVATION** 1 ** 
CALL SYMBOL! l.C, -1.8, .19, 25HFIG SURFACE ELEVATION, .0,251 

CALL SYMBOL! 1.0, -2.2,. 14, 29HANCL0TE ANCHORAGE BY MODEL ZNG, .0,29) 
CALL PLOTl-1.0,-2.5,31 
CALL PL0TC-l.0;*7.5,2l 
CALL PLOT! ♦6.5, *7. 5, 21 
CALL PLOT! «6. 5, •2.5,21 

S?Yb.R'- 0, ‘- 1 *°’-s- g ' S * 


10 

11 


ENO 



♦ FLOW { 1 1 .CAPTN9 SY1- CREATED ON 11 SEP 79 AT 22:52:91 


1 

f 

r 

« 

t 

b 

7 

8 

q 

10 

11 


S UBR CUT I NE CAPTN9CN) 

C****«W R1 T E PLOT TITLE ON BOTTOM OF DIAGRAM FOR CALCULATED TEMPERATURE**** 
CALL STMB0LU.D,-l.Pt.l4,27MriG SURFACE TEMPERA TURE ♦ .0 ,27 1 

SYMBOL! 1 . C , “2 >2, • 14 , 2SHANCL0TE ANCHORAGE BY MODELING, .C, 29 ) 
PLOTC-l.O, -2.5,31 
PL0TC-1.0,*7.S,21 
PLOT! *6. 5, *7. 5,2) 

PLOT! «6.S,"2.S,2> 

PLOT! *1.0, '■2.5,2 1 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETUFN 
END 


